Select Code to Download

use strict;
use warnings;
use Win32::OLE;
...
print $fh $svg->xmlify();
close $fh;
$xl->Quit;