use strict;
use File::Temp q/tempfile/;


for(my $i=0;$i<50;$i++)
{
  my $tmp = new File::Temp('DIR' => '/tmp', 'UNLINK' => 1);
  sleep(1);
}