Alternatives to

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

are

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

and

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