Select Code to Download

my $dbh = DBI->connect('...', { RaiseError => 0 })
    or die "Unable to connect to datasource: $DBI::errstr\n";
my $sth = $dbh->prepare('SELECT PK, Name, Memo...');
...
    }
    return \%checksums;
}

my @data;
while($sth->fetch) {
    push @data, {
...
    print "Name:\t", $_->{Name}, "\t";
    print "Digest:\t", $_->{Digest}, "\n";
}