perl -e'\
\
\
goto\
TPC'