sub printLog { my $entry = $_[0]; my $time = getTime(); # prefix the date a time on the log entry. $entry = "$time: $entry\n"; if(open(ELOG, ">> $everythingLog")) { print ELOG $entry; close(ELOG); } return 1; }