gistfile1.sh

alias 'peval'="perl -E '
  use 5.14.2;
  my \$code = shift(@ARGV);
  use strict;
  use warnings FATAL => q[all];
  use Carp::Always;
  use Try::Tiny;
  use Data::Dump qw( dump );
  local \$@;
  my \$realcode = qq[
# line 1 \"(evaler)\"
    use 5.14.2;
    use strict; 
    use warnings FATAL => q[all];
    use Try::Tiny;
    use Data::Dump qw( dump );
    try {
      say dump(do { 
# line 1 \"(userinput)\"
        \$code 
      }) 
    } catch { 
      *STDERR->print(qq[\\\$_])
    };
  ];
  # print \$realcode;
  eval \$realcode;
  if( \$@ ){ 
    *STDERR->print(qq[\$@]) 
  }
'"