Select Code to Download

open my $fh, '+<:utf8', 'file.in.xml' or die $!;
my $line = <$fh>;
...
seek $fh,0,0 or die $!;
print $fh $line;
close $fh;