# Note that it must be a complete perl statement--don't type double
# carriage return in the middle of a loop.
-$/ = ''; # set paragraph mode
+$/ = "\n\n"; # set paragraph mode
$SHlinesep = "\n";
-while ($SHcmd = <>) {
+while (defined($SHcmd = <>)) {
$/ = $SHlinesep;
eval $SHcmd; print $@ || "\n";
$SHlinesep = $/; $/ = '';