Select Code to Download

sub new {
    my ($self,$class)=@_;
....
our $cache=Fiets::Cache->new();

my ($class) = @_;
# or
# my $class = shift;