Select Code to Download

#!perl

...

hello("world");
bye();

package M;

...
sub hello {
  print "Hello @_!\n";
}

package X;

...
  M::hello("again"); # if exists M:hello();
  print "That's all, folks!\n";
}