#! /usr/bin/perl

 $var='one';
 mypackage::var='two';

 sub mypackage::func(){
  print "my \$var is $var";
}
 mypackage:: func();