FF: binmode ARGV;
while(<>)
{ print }
continue
{ if(eof)
   { close ARGV; goto FF; }
}

##</code><code>##

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

##</code><code>##

while(<>)
{
    close ARGV;
    open ARGV, $ARGV or die $!.' '.$ARGV;
    binmode ARGV;
    binmode ARGV;
    local $/;
    print $_=<>;
    close BINMODE;
}