Use of uninitialized value in concatenation (.) or string at /home/sho/perl/dev//LogMessages.pm line 43.
Cannot open logfile at /home/sho/perl/dev//LogMessages.pm line 43.

##</code><code>##

 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 }

##</code><code>##

 41         my $self=shift;