my $filename = $ARGV[ 0 ] or die "Usage: $0 file\n";
open my $file, $filename or die "Can't open '$filename': $!";
while ( <$file> ) {
    last if $. == 5;
}

print;