open(my $FILEHANDLE, ">", $filename)
    or die "Cannot open $filename: $!";