Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
    while( <> ) {
        print;
    }
    
  2. or download this
    package doit;
    
    ...
    my @data = 1..10;
    print $doit->enumerate( \@data );