perl -e "sub x{last} x"
Can't "last" outside a loop block at -e line 1.