use strict;
use warnings;

my $wantedLines = shift;
my %seen;

while ( <> ) {
  print unless $seen{$_}++;
  last unless --$wantedLines;
}