# in Proc::Simple # $func = sub{ ... }; # your code ... if(ref($func) eq "CODE") { $self->dprt("Launching code"); $func->(@params); exit 0; # Start perl subroutine } else { ...