#!/usr/bin/perl -w
use Win32::Daemon;
Win32::Daemon::StartService();
Win32::Daemon::State( SERVICE_RUNNING );