Next Tie::File 9

What Else?

        tie @FILE, 'Tie::File', $file or die ...;

        push @FILE, $new_last_record;
        my $old_last_record = pop @FILE;
        my $old_first_record = shift @FILE;

        # Truncate or extend the file
        $#FILE = 100;

        # How long is the file?
        $n_lines = @FILE;

        # Overwrite the file
        @FILE = qw(I like pie);