perl -E 'BEGIN { say "uh-uh" } use strict; say "START"; say $x + $y'