use IO::Socket;
use IO::Select;

$lsn = new IO::Socket::INET(Listen => 1, LocalPort => 8080);
           $sel = new IO::Select( $lsn );

           while(@ready = $sel->can_read) {
             ...
           }