package mypackage;
sub some_sub{
  my $var = 2;
  return $var;
}