#!/usr/bin/perl;
# This file documents Tie::File version 0.93

	tie @array, 'Tie::File', "fulltext.txt" or die "ick";

	$array[13] = 'blah';     # line 13 of the file is now 'blah'
	print $array[42];        # display line 42 of the file

	$n_recs = @array;        # how many records are in the file?
	$#array -= 2;            # chop two records off the
	untie @array;            # all finished