open my $in_fh, '<', '/home/nikl123/indri-5.6/runquery/trec7_4collections.txt'
  or die $!;
print scalar <$in_fh>;

##</code><code>##

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