Select Code to Download

#-------------------Watch for IRC Inputs-------------------
sub incoming_data {
...
        
    return 1;
}

        sysread $fh, $input, 1000000;
        #chop $input;
        
        $input =~ s/\r\n//g;

    $input = <$fh>;
    chomp $input;