open SOME_FH, ">", "somefile" or die "Failed to open somefile. $!";

print SOME_FH "Test\n";

##</code><code>##

my $fh = undef;
open $fh, ">", "somefile" or die "Failed to open somefile. $!";

print $fh "Test\n";