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