#!/usr/bin/perl -w

use strict;

my   $TSTFNM = "test-dbm-data";
my   $TSTACC = 0666;

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

exit;

__END__