Select Code to Download

#!/usr/bin/perl
#################################################
...
        if (index($data,"KICK")) { print $sock "PRIVMSG $chan :0haha 
+:P0\r\n"; }
print $sock "QUIT 0...and there was much rejoicing\r\n";
close $sock;