open (STDERR, '>>', $log_file) or die "Can't write to $log_file: $!";

die log_error ("This error will have a timestamp.");

sub log_error {
return  "@{[scalar(localtime(time))]}: $_[0]";
}