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