sub print_and_die {
    my ($message) = @_;
    print $message;
    die $message;
}
open my $log_FH, '>', './testlogifle.txt'
    or print_and_die("Failure to open log file.\n");