use IO::All;
print io('/home/nikl123/indri-5.6/runquery/trec7_4collections.txt')->getline;