Hi,
Here is the code.For node no. I gave some no.s but no use. I have to know the content of this tes.db file.

use Fcntl;
use DB_File;
tie(@file, 'DB_File', "C:/Prac/tes.db", O_RDWR, 293359, $DB_RECNO)
  or die "can't update /tmp/sample: $!";

print "line #1 was ", $file[1], "\n";
untie @file;
[download]

Thanks.