Help for this page
open SOME_FH, ">", "somefile" or die "Failed to open somefile. $!"; print SOME_FH "Test\n";
my $fh = undef; open $fh, ">", "somefile" or die "Failed to open somefile. $!"; print $fh "Test\n";