13:02 >perl -wE "my $x = 42; say 'hi';"
hi

13:02 >perl -Mwarnings::unused -wE "my $x = 42; say 'hi';"
hi
Unused variable my $x at -e line 1.

13:02 >