# telnet | perl -x