An excellent article which got me started with OOP in Perl. This is exactly the kind of thing I was looking for.
However, I would like to point out something. The

1;
[download]

at the end is not entirely necessary. We can just as well use,

our @ISA=qw/Exporter/;
[download]

Which I guess is a better way of telling the world, that you may import this package/class in your own scripts.