ready = $select->can_read(5);

if (! scalar(@ready)) {

        print "Timed out\n";

} else {

        $sock = $ready[0];

       if (! sysread($ready[0], $msg, 512)) {

                        print "recv failed :$!\n";

        } else {

            		print "$msg";

        }

}