open(LOGFILE, ">>$self->{logfile}") or die "Cannot open logfile";

##</code><code>##

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 @_;
        }
}

##</code><code>##

$self = 'Entering sub main::do_something
'
Can't use string ("Entering sub main::do_something
") as a HASH ref while "strict refs" in use at LogMessages.pm line 43.

##</code><code>##

                *{ $sym } = sub {
                        log_message("Entering sub $pkg\:\:$name\n");
                        my @ret = $code->( @_ );
                        log_message("Leaving sub $pkg\:\:$name\n");
                        return @ret;
                };