Select Code to Download

open my $in, '<', 'abc.xml'
    or die "Can't read abc.xml: $!";
...
}
close $in  or die "close input: $!";
close $out or die "close output: $!";