#!/usr/bin/perl -w
use Win32::Daemon;
my %ServiceConfig = (
 name => "TestService",
 display => "Testing a Perl Created Service",
 path => $^X,
 user => '',
 passwd => '',
 parameters => 'c:\Perl\scripts\TestService.pl',
);
if ( Win32::Daemon::CreateService ( \%ServiceConfig ) )
{
 print "The '$ServiceConfig{display}' service";
 print "was successfully installed.\n";
}
else
{
 print "Failed to add '$ServiceConfig{dislay}' service\n";
 print "Error:";
 print Win32::FormatMessage( Win32::Daemon::GetLastError() ), "\n";
}