perl -e# -e# -e# -e# -egoto+TPC