while($some_guaranteed_condition) {
    my $socket = IO::Socket::INET->new( ... );
    while($line = <$socket>) {
        ...
    }
    $socket->shutdown(2);
}