#!/usr/bin/perl -w
use Win32::Daemon;

$Maschine = "";
$ServiceName = "PerlTest";
$boolean = Win32::Daemon::DeleteService($Maschine,$ServiceName);

if ( 0 != $boolean )
{
	print "success" . " " . $boolean;
} else
{
	print "fail";
}