18:04 >perl 1312_SoPW.pl
Can't "last" outside a loop block at 1312_SoPW.pl line 8.

18:04 >perl -v

This is perl 5, version 22, subversion 0 (v5.22.0) built for MSWin32-x64-multi-thread