Select Code to Download

BEGIN {
    if( eval "use fakemodule; 1;") {
...
        print STDERR "Couldn't load fakemodule.";
    }
}

first(1,2,3);

sub first {
...
}

# Output is 123

use strict;
use warnings;
...
my @list = (1,2,3);
pro(@list);
&pro(@list);

$VAR1 = [
          [
...
          2,
          3
        ];