use if (not grep {/--nostrict/} @ARGV), 'strict'; #### goto I_LIKE_MY_VARIABLES_STEALTHED_AND_GLOBAL if $nostrict; my ($foo, @bar, %baz); I_LIKE_MY_VARIABLES_STEALTHED_AND_GLOBAL: