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