#!/perl -w

use strict;
use Win32::Daemon; 

my %service = (name    =>  'test',
	           display =>  'test',
	           path    =>  'c:\\Perl\\bin\\perl.exe',
	           pwd     =>  '',
	           parameters =>'q:\\test.pl',);
if( Win32::Daemon::CreateService( \%service ) )
{
	print "Successfully added.\n";
}
else
{
	print "Failed to add service: " . Win32::FormatMessage( Win32::Daemon::GetLastError() ) . "\n";
}