FF: binmode ARGV;
while(<>)
{ 
  binmode ARGV;
  local $/;
  $a=<>;
}
continue
{ if(eof)
   { close ARGV; goto FF; }
}