perl -n -p -e "$_ = eval($_) . qq(\n); $_ .= qq(::$@\n) if $@"