#!/usr/bin/perl

use strict;
use warnings;

my $i = 0;
while (<>) {
    print $_;
    last if ++$i >= 2;
}

my $line;
print "My extra line: $line" while $line = <>;