Select Code to Download

while($info = $sth->fetchrow_hashref) {
@case = keys %{info};
print @case; }

while ( my $row = $sth->fetchrow_hashref ) {
    print "New:\n";
    foreach my $field ( keys %{ $row } ) {
        print "$field: $row->{ $field }\n"; }}