for my $hashref (@{$self->{Items}}) {
  my $d = Dumper($hashref);
  print "$d\n";
#  my $date = $hashref->{Date};
}

##</code><code>##

 my $file = shift();
 if ($file){
   $self->set_items($file);
 }else{
   $self->{Items} = ();
 }

##</code><code>##

my $list = new List($file);