perlsh

   1 #!/usr/bin/perl
   2
   3 # Poor man's perl shell.
   4
   5 # Simply type two carriage returns every time you want to evaluate.
   6 # Note that it must be a complete perl statement--don't type double
   7 #  carriage return in the middle of a loop.
   8
   9 $/ = "\n\n";    # set paragraph mode
  10 $SHlinesep = "\n";
  11 while (defined($SHcmd = <>)) {
  12     $/ = $SHlinesep;
  13     eval $SHcmd; print $@ || "\n";
  14     $SHlinesep = $/; $/ = '';
  15 }