#!/usr/bin/perl
use strict;
use warnings;
use Fatal qw( open close );

chdir '/mnt';
{
   open my $fh, '>', 'prova.dat';
   print {$fh} "ciao\n" for 1 .. 1000000;
   # close $fh;
}

print {*STDERR} "should be closed here!\n";