my $sel = new IO::Select $sock; #### require IO::Select; #### my $sel = IO::Select->new($sock); #### my $sel = new($sock->IO::Select()); #### use IO::Select;