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