Select Code to Download

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