my $snippet = $c->request->param("filter");
my $package = __PACKAGE__ . "::" . get_uuid_name();
my $code = "package $package; use strict; use warnings;";
$code .= $snippet;
$code .= ";\n1;";
# ... ?
my $perl = qx/ which perl /;
my $result = qx/ perl -c $code /; # CAN this work? If so, how? I'm a shell-tard.