package package1;

$variable1=9;

sub demo {
  print "Running sub demo in package1.\n";
}
return 1;