Help for this page

Select Code to Download


  1. or download this
        BEGIN {
        for my $name (qw {slurp get}) {
...
    __END__
    This is slurp
    This is get
  2. or download this
        sub slurp;
    sub get;
...
    __END__
    This is slurp
    This is get
  3. or download this
        sub common {
        my ($name, @args) = @_;
...
    __END__
    This is slurp
    This is get