#!/usr/bin/perl

use strict;
use warnings;

my %saw;

while (<>) {
    print if !$saw{$_}++;
}

__END__