Select Code to Download

my $fileSize = -s $fileName;

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

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

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

...
   unless $bytesRead == $bytesToRead;

print $inpBuffer;