perl -e"



goto TPC"