Select Code to Download

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