P:\test>perl -le" { print 1; last if 1; print 2; } print 3;"
1
3