use strict;                                #use strict...

open(TELNET, "|telnet") or die "$!";       #open writable telnet or die
sleep 5;                                   #wait 5 seconds
print TELNET "set localecho\n";            #Turn telnet "localecho" on
sleep 5;                                   #wait 5 seconds
print TELNET "open discworld.atuin.net\n"; #Open DiscworldMUD