sub decrypt { my $c = shift; my @c = (0) x 8; for (;;) { my $i = 0; my $s = join '', map chr, @c; return $s if crypt($s, $c) eq $c; $c[$i]=0, $i++ while $c[$i] == 255; return undef if $i > 7; $c[$i]++; } } #### use more 'cpu'; use less 'time'; use more 'speed'; #### sub tomorrow_date { sleep 86_400; return localtime(); }