open ($if, "<", $dbfile) or die "Can't open $dbfile: $!\n" ;
seek($if, 3, 0) ;
[...]