view release on metacpan or  search on metacpan

etc/perlsh  view on Meta::CPAN

#!/usr/bin/perl
 $/ = '';        # set paragraph mode
 $SHlinesep = "\n";
 while ($SHcmd = <>) {
     $/ = $SHlinesep;
     eval $SHcmd; print $@ || "\n";
     $SHlinesep = $/; $/ = ''; 
 }