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