else
{
    die "Nothing to do\n";
}

##</code><code>##

my %opt;
GetOptions (
    \%opt,
    "run",
    "install",
    "remove",
    "start",
    "stop",
    "restart",
    "pause",
    "resume|continue",
);

##</code><code>##

else
{
    #die "Nothing to do\n";
    &removeService();
    &installService();
    my $cmd = 'net start $serviceConfig{name}';
    my $results = `$cmd`;
    if($!)
    {
	&debug("Net Start returned error: $@\n" . $results);
	die "ERROR";
    }
    #don't know what is this for
    my %context = {
        last_state => SERVICE_STOPPED,
        count      => 0,
        start_time => time(),
    };
    Win32::Daemon::StartService( \%context, 3000 );
    exit();
}