Select Code to Download

sub main {
  print "Hello, world!\n";
...
unless (caller) {
  main;
}

#!/usr/bin/perl
# File: demo.pl
...
top level in Demo.pm
this is the test subroutine!
test() returned 1

#!/usr/bin/perl
# File: Demo.pm
...


1;