Win>perl a.pl 0
Timeout

Win>perl a.pl 1
select: (10038) Unknown error

    Using $^E instead of $! gives
    select: (10038) An operation was attempted on
                    something that is not a socket

linux$ perl a.pl 0
Timeout

linux$ perl a.pl 1
select: (9) Bad file descriptor