my $time = time();
my $counter = 0;
while(-e "$time_$counter") { $counter++; }
open(F, ">$time_$counter") or die "blah blah $!";