perl -e'\ 
\ 
\ 
\ 
goto TPC'