Select Code to Download

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

sub log_message {
        my $self=shift;
...
                print LOGFILE @_;
        }
}

$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.

                *{ $sym } = sub {
                        log_message("Entering sub $pkg\:\:$name\n");
...
                        log_message("Leaving sub $pkg\:\:$name\n");
                        return @ret;
                };