C:\test>perl -Mstrict -w
package x;

sub f{ 1 }

42;
^Z
Useless use of a constant in void context at - line 5.