Select Code to Download

Global symbol "$x" requires explicit package name (did you forget to d
+eclare "my $x"?) at <location>

Bareword "xxx" not allowed while "strict subs" in use at <location>

open(DATA, "<$tmpfile") or die "Can't open data";

$ perl -E 'say for <DATA>'
Name "main::DATA" used only once: possible typo at -e line 1.
readline() on unopened filehandle DATA at -e line 1.
$

$ perl -E 'say for <DATA>; __END__'
$

perl -E '...'

perl -Mstrict -Mwarnings -Mautodie -E '...'