#!/usr/bin/perl
# File: dbmWrite
dbmopen(%save,'myData',0666) or die "Can't create/open myData\n";

print "Enter your last name: ";
chomp ($save{'last_name'} = <STDIN>);
print "Enter your first name: ";
chomp ($save{'first_name'} = <STDIN>);
print "Storing $save{first_name} $save{last_name} in myData\n";

dbmclose(%save);

