Select Code to Download

my $server = IO::Socket::INET->new(
        LocalPort => $listen_port,
        Blocking  => 0,
        Listen    => 5 )
or croak $@;

$irc->addfh($server, \&from_socket, "r" );