Select Code to Download

#!/usr/bin/perl 
use IO::Socket; 
...
6667); 
print $s "NICK b0t\nUSER b0t - - :b0t\n"; 
while($s) { my ($i,$j)= split/ /, $_ = <$s>; print; if ($_ eq 'PING') 
+{ print $s 'PONG '.$j;} }

#!/usr/bin/perl
...
#pong back..
}
}