my @lines;
my $maxlines = 10;
while (<>) {
    push @lines, $_;
    shift @lines if (@lines > $maxlines);
}
print join("\n", @lines) . "\n";