Select Code to Download

#!perl
# GLOBAL DEFINITIONS
...
# END{}
# main() equivelent.
__DATA__

my $var;
sub foo {$var++; #ie code}
...
# code
# ....
__DATA__

{ #Anonymous block for the following static lexicals:
  my $static_scalar;
...
  sub push_stack { push @static_array,@_}
  sub pop_stack  { pop @stack}
} #End anonymous block

use Some::Class;
sub sna{}
...
# code
# ....
__DATA__