$ perl -wle 'print OUT'
Name "main::OUT" used only once: possible typo at -e line 1.
print() on unopened filehandle OUT at -e line 1.