sory for the code

Code:
{
  my $counter = 0;
  sub getFreeFilename {
    while(1) {
      my $file_name = sprintf("%s_%s_%s.html",$$,$^T,$counter++);
      return $file_name if not -e $file_name;
    };
  }
}