C:\test>perl -Mstrict -w
package x;
sub f{ 1 }
return 42;
^Z
Can't return outside a subroutine at - line 3.