40 sub log_message{
 41         my $self=shift;
 42
 43         open(LOGFILE, ">>$self->{logfile}") or die "Cannot open logfile";
 44         my $time=getLogTime();
 45         print LOGFILE $time, " ";
 46         for (@_){
 47                 print LOGFILE @_;
 48         }
 49 }