# but never do this!
$is_io    = UNIVERSAL::isa($fd, "IO::Handle");
$sub      = UNIVERSAL::can($obj, "print");

##</code><code>##

$is_io = $fd->isa('IO::Handle');