use strict;
use warnings;
use feature qw/ say /;

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

package different;
{
open my $foo, "+>", undef;
open my $bar, "+>", undef;
say $foo-> can( "print" ) ? "yes" : "no";   # yes
say $bar-> can( "print" ) ? "yes" : "no";   # yes
}