Select Code to Download

use warnings;
use strict;
...
    my @F = split;  # -a
    print $F[2];    # -e
}

$ cat s.pl 
#!/usr/bin/perl -s
...

$ ./s.pl -x=foo
<foo>