package NDBM_File;
-use strict;
+BEGIN {
+ if ($] >= 5.002) {
+ use strict;
+ }
+}
use vars qw($VERSION @ISA);
require Tie::Hash;
use NDBM_File;
- tie(%h,NDBM_File,'Op.dbmx', O_RDWR|O_CREAT, 0640);
+ tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
untie %h;