my ($file, $limit) = ('/var/log/messages', 100);
open my $f, '<', $file or die;
my @lines;
$#lines = $limit;
while( <$f> ) {
  shift @lines if @lines >= $limit;
  push @lines, $_
}
print @lines