Select Code to Download

    $xml->save($filename) or die "Couldn't save my xml data to $filena
+me: $!";

# ... near the top:
use Carp;  # THIS NEEDS TO BE ADDED
...
    print $fh $data or return;
    close $fh;   # save() will return true if this succeeds, false oth
+erwise
}