Select Code to Download

    my $i;
    for $i (0..$#items) {
...
       print "$d\n";
#      my $date = $hash{Date};
    }

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