Select Code to Download

open($self->{FILE}, ">>$self->{file_path}$self->{file_name}") || die "
+Could not open file $!\n";

my $self = {};

...
my $fh = $self->{FILE};
print $fh "some text here\n";
close($self->{FILE});