Select Code to Download

# instead of
my $class = shift;
my $self = bless {}, ref($class) || $class;
# try
my $self = bless {}, ref($_[0]) || @_

sub foo {
   # some stuff
   open my $fh, @_;
   return $fh;
}

sub foo {
   # some stuff
...
   }
   return $fh;
}