#!/tps/bin/perl -s

open (my $log_FH, '>', './testlogfile.txt')
    || {
           print "failure to open log file...........";
           die 'Failure to open log file.....';
       }

close($log_FH);