my $sock = IO::Socket::INET->new(PeerAddr => $host,
                                    PeerPort => $port,
                                    Proto    => 'tcp');


   my $sel = IO::Select->new($sock);

   open (FILEOUT, '>', 'output.log');
   my @msgstream;

   while ($sel->can_read($timeout))
   {
      my $line = <$sock>;
      ...
   }