for (1..50) {
   my $tmp = File::Temp->new( DIR => '/tmp' );

   # Make the file anonymous
   unlink($tmp);

   sleep(1);
}