$ 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.
$