Зашифровать код perl

Здравствуйте, нужно зашифровать код perl , но что-бы он нормально работал в linux (web-приложение).

К примеру код:

sub clean {my $r = shift;

$r->send_http_header("text/html");

$r->print("hello");

return OK;}

Хотелось бы зашифровать в что-то не читаемое и сложно расшифровываемое.