Select Code to Download

         $delaylist{ $_ } .= $msg . "\n";

    foreach (@nicks) {
        print "--> \cB$_\cB:\n";
        print "$_\n" for split /\n/, $delaylist{ $_ };
    }

        print ("query $nick $_") for split /\n/, $delaylist{$nick};