my $time;
crypt( $time = time,$time );