Select Code to Download

perl -e "print @{localtime}[1,3];"

perl -e "sub m {return (1,2,3);} print @{&m}[0,1];" #fails

perl -e "sub m {@q=(1,2,3); return \@q;} print @{&m}[0,1];" #succeeds