my $filename = "~/tmp/temp.$$";
while (-e $filename) { 
  $filename .= '.' . chr(int(rand(25)) + 65);
}