#!perl
use strict;
use warnings;
my $infile = "trec7_4collections.txt";
open IN, '<', $infile or die "Could not open $infile $!";
my @rows = <IN>;
close IN;
print $rows[0];