Select Code to Download

my $childThread = threads->new( \&Your::Package::childThreadWrite, $se
+lf, $l_cqrdMessage);

    lock $self->{waitFlag};

print do{ no strict 'refs'; \*( $self->{ inst } } }, $l_cqrdMessage;

#! perl -slw
use strict;
...

warn 'Done';
exit;