Select Code to Download

#!/bin/perl -w
use XML::DOM;
use PerlIO::encoding;
...
$doc->print($fh);

$doc->dispose;