Help for this page
open my $in_fh, '<', '/home/nikl123/indri-5.6/runquery/trec7_4collecti +ons.txt' or die $!; print scalar <$in_fh>;
use IO::All; print io('/home/nikl123/indri-5.6/runquery/trec7_4collections.txt')->g +etline;