Or do:

use Scalar::Util 'blessed';
my $answer = blessed($fd) && $fd->isa(...);
[download]

which is better in that it allows you to stipulate that $fd is an object, not a class name.