Select Code to Download

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

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