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