perl -e; -e; -e; -e; -e "goto TPC" 123456789-123456789-123456789-1234