Select Code to Download

my $output_file = 'demo.txt';

open(my $out_fh, '>', $output_file)
    or die "Cannot open file '$output_file' for writing: $!";

print $out_fh "\$ENV{$key} = $ENV{$key}\n";

close $out_fh
    or die "Cannot close file '$output_file': $!";