Select Code to Download

johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
say sub { pop }->( 1, 3, 5, 7, 9 );'
9

johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
say sub { shift }->( 1, 3, 5, 7, 9 );'
...
c
johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E 'say shift' a 
+b c
a