#!/usr/bin/perl

while (read(STDIN,$buf,$ENV{BLOCKSIZE}))
{
  ;
}