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