How do i create a script to run as a service?

[Sisyphus]

"dgvads f" <[email protected]> wrote in message
news:gcfPa.1$[email protected]..

> Hi
>
> Is there any modules out there? i am a bit lost, someone mentioned
> win32::service, but that just works on exisiting services. Is there

anything

> out there that will let me run a perl script as a service, and that is
> without using any windows programs like the ones in the NT resource kit.

Win32::Daemon from [url]http://www.roth.net/perl/packages/[/url] .
The following should do the trick:
ppm install [url]http://www.roth.net/perl/packages/win32-daemon.ppd[/url]

Cheers,
Rob

[Benjamin Goldberg]

dgvads f wrote:

>
> Hi
>
> Is there any modules out there? i am a bit lost, someone mentioned
> win32::service, but that just works on exisiting services. Is there
> anything out there that will let me run a perl script as a service,
> and that is without using any windows programs like the ones in the NT
> resource kit.

Assuming you're using ActiveState perl, use wperl.exe.

--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}