LINE: while (defined($_ = <ARGV>)) {
    $first ||= $_;
    $last = $_;
    ++$count;
}
{
    die "ERROR found $count lines. Need >5" unless $count > 5;
    print "FIRST:$first\nLAST:$last\n";
}