use strict;
use warnings;
use feature qw/ say /;
use Scalar::Util qw/ blessed /;

open my $fh, "+>", undef;
say $fh-> can( "print" ) ? "yes" : "no";    # no
print $fh 123;
say $fh-> can( "print" ) ? "yes" : "no";    # no
$fh-> print( 123 );
say $fh-> can( "print" ) ? "yes" : "no";    # yes

say "no" unless blessed $fh;                # no