Select Code to Download

# script.pl
use Foo;
...
  1.Execute my $foo = Foo->new();
  2.Execute $foo->do();

  print         "10. Ordinary code runs at runtime.\n";
  END { print   "16.   So this is the end of the tale.\n" }
...
  UNITCHECK { print " 3. UNITCHECK blocks run LIFO after each file is 
+compiled.\n"  }
  INIT { print  " 9.   You'll see the difference right away.\n" }
  print         "13.   It only _looks_ like it should be confusing.\n"
+;