while(<>)
{
  binmode ARGV;
  seek ARGV,0,0;
  local $/
  $_=<>;
}