my $file = 'file.dat';
open my $fh, '>', $file
    or die "Can't write '$file': $!";
close $fh or die "Close error: $!";