Help for this page
if (!open my $log_FH, '>', './testlogifle.txt') { print "Failure to open log file.\n"; die "Failure to open log file.\n"; }
my $log_FH; ... do_something_with($log_FH); ...