Select Code to Download

Select or download this

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

Select or download this
```
        # and so on...
    }
```
Select or download this
my %hash = %{ shift };
Select or download this
my %hash = %{ +shift };
Select or download this
my %hash = %{ shift() };

Select or download this

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

Select or download this
printf("#%02x%02x%02x %s\n", /(\d+)\s+(\d+)\s+(\d+)\s+(.*)/);

Select or download this

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

Select or download this

    $ ./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

Select or download this
@ref = \($a, $b, $c);

Select or download this

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