use Tie::File;
my $MAXLINES=20; # not including header
tie my @lines, 'Tie::File', 'foo.txt' or die "tie failed";
splice @lines, 1, @lines-$MAXLINES if @lines>$MAXLINES;
push @lines, "newline\n";
untie @lines;