#!/usr/local/bin/perl
use warnings;
use strict;
my $n = 1000;
while ($n--) {
    $_ = <STDIN>;
    exit if not defined;
    print;
}
$_ = <STDIN>;
print "[truncated]\n" if defined;