use strict;
use warnings;

use File::Temp 'tempfile';
$SIG{INT} = sub { exit };


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