package Pack;
use vars qw/$image/;
sub one
{
  ($image)=@_;
}
sub two
{
  print $image;
}

##main code

use Pack;
Pack::one("param");
my $ret=Pack::two();
print $ret;