Select Code to Download

#!/usr/bin/perl -w
use strict;
...
close $FH;

#!/usr/bin/perl -w

...
open my $FH, '>', 'output.txt';
    print $FH Dumper(\%answer);
close $FH;