sub log_message {
    my $logfile = shift;
        
    open my $LOGFILE, '>>', $logfile
        or die "Cannot open logfile '$logfile': $!";
    my $time = getLogTime();
    print $LOGFILE $time, " ";
    for (@_){
        print $LOGFILE @_;
    }
}