#!perl -l
open my $log,">>C:/tmp/log.log" or die $!;
my $term_type=-t STDIN ? "Terminal" : "Non Terminal";
print $log localtime(time)." $term_type";
print localtime(time)." $term_type";