Select Code to Download

my $sock = IO::Socket::INET->new('localhost:6669');

...

print "nick whateverhack\n";
print $sock "nick whateverhack\r";

LOOP: while (<$sock>) {
    $line = $_; 
...
    }
    }
}