Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
    use strict;
    ...
    sub doit {
            print shift, ": ", join(",", @_), "\n";
    }
    
  2. or download this
    my $foo;
    
    sub bar {
        $foo++;
    }