# TEST.pm

*test_sub = *TEST::test_sub;

package TEST;

sub test_sub {
  print "Hello, world!\n";
}