tie (@data,'Tie::File',$file, mode=>O_RDWR) or die "Can't tie to $file:$^E\n";