in reply to Testing $! when use strict is in effect

You can check condition "error EFOO is the case" via the %! magic hash: 
if ($!{EWOULDBLOCK} ) {
    # would block
};

[download]
Search for %ERRNO in perldoc perlvar.

In Section Seekers of Perl Wisdom