Select Code to Download

my $file = "abc.xml";        
open INFO, "$file";
...
print INFO $xml1;

close INFO;

my $inp = "abc.xml";
my $out = "new_abc.xml"; 
...

print OUT join "", @array;