my $output_file = 'demo.txt';

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

##</code><code>##

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

##</code><code>##

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