$sock = IO::Socket::INET->new ( PeerAddr => $server,
                                PeerPort => $sport,
                                Proto => "tcp" );
if($sock==undef) { print "Could not connect to Host!\n"; exit; }

while (1) {
    #the problem is that it needs to stay connected to the server
    #so it can continuously send/receive data or wait for data to 
    #get data from the server
    
        next unless $sock->recv($buff,5000); #get data? if possible
    print <$buff>;
    
    #i had a bunch of code here that parses/uses the data from the ser
+ver. 
}
[download]