my @v = my ($sec, $min, $hour, $mday, $mon, 
            $year, $wday, $yday, $isdat) = localtime;

printf "Password: %s\n",
        reverse(substr(crypt(((add()) * $< / $)), rand($$)), 2,9));

sub add { my $v += $_ for @v; }