#!/usr/bin/perl -w

use strict;

my   $TSTFNM = "test-dbm-data";         # Test database base filename
my   $TSTACC = 0666;                         # Test database default access

my $opnret = dbmopen(my %TSTDBM, $TSTFNM, $TSTACC);
print "DBM Open:  '$opnret'\n";
undef $opnret;
my $cloret = dbmclose(%TSTDBM);

exit;

__END__