or download this
>perl -we"use strict; 1 if func"
Bareword "func" not allowed while "strict subs" in use at -e line 1.
...
Bareword "func" not allowed while "strict subs" in use at -e line 1.
Bareword "func" not allowed while "strict subs" in use at -e line 1.
Execution of -e aborted due to compilation errors.