Select Code to Download

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:13
+5] called at /usr/opt/perl/5.8.5/lib/XML/Writer.pm line 476
        XML::Writer::xmlDecl('XML::Writer=HASH(0xd6dbe0)') called at g
+en_activity.pl line 150
        main::gen_blob('HASH(0xd2edac)') called at gen_activity.pl lin
+e 115

my $output;

...
    149   # Start XML file with the line <xml version = "1.0
    150   $xmlObj->xmlDecl();