Can't call method "print" on unblessed reference at /usr/opt/perl/5.8.5/lib/XML/Writer.pm line 116.
 at /usr/opt/perl/5.8.5/lib/XML/Writer.pm line 116
        XML::Writer::__ANON__[/usr/opt/perl/5.8.5/lib/XML/Writer.pm:125] called at /usr/opt/perl/5.8.5/lib/XML/Writer.pm line 133
        XML::Writer::__ANON__[/usr/opt/perl/5.8.5/lib/XML/Writer.pm:135] called at /usr/opt/perl/5.8.5/lib/XML/Writer.pm line 476
        XML::Writer::xmlDecl('XML::Writer=HASH(0xd6dbe0)') called at gen_activity.pl line 150
        main::gen_blob('HASH(0xd2edac)') called at gen_activity.pl line 115

##</code><code>##

my $output;

 # XML Writers object
    147   my $xmlObj = new XML::Writer(OUTPUT=> \$output, NEWLINES=>0);
    148 
    149   # Start XML file with the line <xml version = "1.0
    150   $xmlObj->xmlDecl();