Select Code to Download

#!/usr/bin/perl
use XML::Parser;
use strict;
...
open (MYFILE, '>data.txt');
print MYFILE "Tags in the array are @tags\n";
close (MYFILE);

package truncator;

...
 print @tags;

1;