my $outfile = localtime; print "$outfile\n"; $outfile=~s/\s|://g; $outfile="$outfile" . rand($outfile); $outfile=~s/\.//g; #for win32 - doesn't like multiple dots print $outfile;