Package Pack;
{ 
 my $image;
  sub one
  {
  ($image)=@_;
  }
}
  sub two
  {
  print $image;
  }