use constant DEBUG => 1;

my $fh = File::Temp->new( UNLINK => DEBUG ? 0 : 1 );