One Gothca with Fatal.pm 

use Fatal qw(open);

if(open my $log, '>', $log_file) {
  print $log $message;
}
else {
  print STDERR $message;   # Never reached
}