use strict;
use IO::Socket;
my $host= 'scsa.msg.yahoo.com';
my $port=5050;
my $sock=new IO::Socket::INET(PeerAddr => $host, 
                              PeerPort=> $port, 
                              Proto=>'tcp');
die "cant open socket" unless ($sock);
my $cmd="MYGET\n";
while(<$sock>) { print }
close $sock;