here document and STDIN

[Cai Qian]

Hi,

For following code,

sh <<EOF
      read
EOF

I have no idea why will not block. May I ask how to reset its STDIN?
So I can run some Perl code inside like,

perl - <<'EOF'
     XXXXX

EOF

Qian