Help for this page

Select Code to Download

Select or download this

package Pack;
use vars qw/$image/;
sub one
...
my $ret=Pack::two();
print $ret;