#!/usr/bin/perl
# File: dbmRead

dbmopen (%get,'myData', undef) or die "Can't open myData\n";

for $key (sort(keys(%get))) {
  print "$key=$get{$key}\n";
}
dbmclose(%get);
