#!/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__

##</code><code>##

DBM Open:  'AnyDBM_File=SCALAR(0x1982e8c)'
<BR>untie attempted while 1 inner references still exist at D:\Steve\Dev\test-dbm.pl line 10.