#!/usr/bin/perl -w
    use strict;
    my $n_lines = 10;
    my $file = 'test';
    my @lines;
    open(FILE, $file)|| die "Can't $!";
    for (1 .. $n_lines) {
        push @lines, scalar <FILE>;
    }
    close FILE;
    print @lines;