my $fileSize = -s $fileName;

##</code><code>##

my $fileSize = (stat $fileName)[7];

##</code><code>##

my $limit = 160;
my $bytesToRead
   = $fileSize > $limit
   ? $limit
   : $fileSize;

##</code><code>##

my $bytesRead = read($inpFH, my $inpBuffer, $bytesToRead);

die qq{Bad read: read $bytesRead, expected $bytesToRead\n}
   unless $bytesRead == $bytesToRead;

print $inpBuffer;