Select Code to Download

 my $data;
open my $FH, '<' , $config or die "Cannot open $config: $!\n";
...
}
close $FH;
close $HF;

 my $data;
open my $FH, '<' , $config or die "Cannot open $config: $!\n";
local $/ = undef;
...
    print "$1\n";
}
close $FH;