my $fh = $self->{fh};
print $fh "Hello world\n";

##</code><code>##

print { $self->{fh} } "Hello world\n";

##</code><code>##

use IO::Handle qw( );
$self->{fh}->print("Hello world\n");