Select Code to Download

use strict;
use warnings;
...
$writer->endTag(); # = endTag("data")
$writer->end();
$output->close();