#!/opt/perl/5.8.0/bin/perl
#ident "%W%"
use CGI qw(:standard);
use GDBM_File ;
use POSIX qw(fcntl_h errno_h);
use Getopt::Std;
use Fcntl;

$dbfile_exist = "no";

$arg1 = $ARGV[0]; # Argument 1 is the User ID.

$dbmdatabase = "/home/bheeshmaraja/test.txt";

if (-f "$dbmdatabase") {
        $dbfile_exist = "yes";
} else {
        print "NULL";
        exit 0;
}

tie %DBMDB, GDBM_File, $dbmdatabase, &GDBM_READER, 0400 or die "Couldn't tie NDBM file 'filename': $!; aborting";

untie %DBMDB;