#!/usr/bin/perl -wl
use strict;
no strict 'refs';

# Nothing there yet!
print "AnyDBM_File::ISA = ", @AnyDBM_File::ISA;

dbmopen my %db, "foo", 0777;
my $pkg = ref tied %db;
print $pkg;
my @isa = @{"${pkg}::ISA"};
print @isa;
print ${"$isa[0]::VERSION"}

__END__
AnyDBM_File::ISA =
AnyDBM_File
SDBM_File
1.03