while (<>) { eval; print $@; }