$ perl -MO=Deparse -e 'last last;'
last (last);
-e syntax OK