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

##</code><code>##

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