my $fh = $self->{'fh'};
print $fh "This is a test\n";