在一个Windows服务下托管多个Perl脚本

Question

我有三个Perl脚本，我想在一个Windows服务下托管它们。这可能吗？我正在使用Win32::Daemon。

以下是如何创建一项服务的示例。是否可以使用Win32::Daemon在单个服务中包装三个脚本？我发现有一个类型选项SERVICE_WIN32_OWN_PROCESS，它将多个文件包装到一个服务中，但我不知道如何用Win32::Daemon来做这样的事情。

my %service_info = (
    machine     => '',
    name        => 'test',
    display     => 'testservice',
    path        => $^X,
    user        => '',
    pwd         => '',
    description => 'test service desc',
    parameters  => $ServiceParams
);

if ( Win32::Daemon::CreateService( \%service_info ) ) {
    print "Successfully added.\n";
}
else {
    print "Failed to add service: " . Win32::FormatMessage( Win32::Daemon::GetLastError() ) . "\n";
}