Select Code to Download

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

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

my $list = new List($file);