1 files changed, 16 insertions, 0 deletions
diff --git a/bucky2/t/poot.pl b/bucky2/t/poot.pl
new file mode 100755
index 0000000..30eefb8
--- /dev/null
+++ b/bucky2/t/poot.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use DB_File;
+
+my %X;
+
+
+tie %X, "DB_File", "gross.db", O_CREAT|O_RDWR, 0666, $DB_HASH ;
+print "one:$X{'fie'}\n";
+
+
+$X{'fie'} = "fum";
+print "two:$X{'fie'}\n";
+
+