Select Code to Download

    sub foo {
        my $self     = shift;
        my $hash_ref = shift;

        # and so on...
    }

    sub my_lc { lc +shift; }
    sub my_uc { uc +shift; }

    #!/usr/bin/perl
    while (<>) {
        print "$_\n";
    }

    $ ./script a b c
    Can't open a: No such file or directory
    Can't open b: No such file or directory
    Can't open c: No such file or directory

    my %opt;
    GetOptions(\%opt, "size|s=i");