Select Code to Download

irc response while trying to connect:
NOTICE AUTH :*** Ident broken or disabled, to continue to connect you 
+must type  PASS 16934

my $pass;
while (my $input = <$sock>) {
...
           print $sock "QUOTE PASS $pass\r\n";
        }
}