And to fix the line, if upgrading to perl 5.6.1 is an issue, you can change this:

our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();
[download]

to this:

use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $AUTOLOAD);
[download]

or this:

no strict;
(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();
# You need to do all of your work with these variables here
# Its best not to use this method.
use strict;
[download]

Update:Fixed examples, thanks to reply from tye.