Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    open (my $xfile, ">", $file) or die "Can't save to $file: $!";
    $twig->print(\*$xfile);
}

<data>
  <record path="/blue_test.htm">
...
    <url>http://localhost/yellow_test.htm</url>
  </record>
</data>