You have the snippet

sub new {
    my $class = shift;
    my %args = @_;
[download]

which I do a bit differently.

sub new {
   my ($class,%args) = @_;
   my $package = ref($class) || $class || confess "classless construct
+or";
[download]

because I like to allow for

where $something can be a string (class name) or an existing object. The existing object bit is especially handy when creating a clone.

- doug