use FileHandle;
my $FH = FileHandle->new(">>$self->{output_file}");
$self->{file_handle} = \$FH;

##</code><code>##

my $FH = ${$self->{file_handle}};	
print $FH "some text\n" ;