#! perl

use Storable qw/nfreeze thaw/;

my %global; # for use by eval'ed commands

cf::register_extcmd perl_eval => sub {
   my ($pl, $msg) = @_;

   return (error => "error permission denied")
      unless $pl->ob->flag (cf::FLAG_WIZ);

   my $arg = eval { thaw $msg->{arg} };
   my @res = eval $msg->{code};

   $@ ? (error => $@)
      : (result => nfreeze \@res)
};