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;