open my $log_FH, '>', './testlogifle.txt' or do {
    print "Failure to open log file.\n";
    die "Failure to open log file.\n";
};