Select Code to Download

package main;
open my $fh1, '>', 'x.txt' or die $!;
...
open my $fh2, '>', 'y.txt' or die $!;
print $fh1 "bar";  # oops!
close $fh2;