#!/bin/usr/perl -w use strict; use Net::Telnet (); my $mud = new Net::Telnet; $mud->open(Host=>"furry.org",Port=>"8888",Timeout=>"10"); $mud->waitfor('/Welcome/'); #wait for a reply $mud->print('connect darrenlupus censoredpassword'); #login $mud->print('morph wolf'); #send a command $mud->print('QUIT'); #let the other side disconnect gracefully