#!/usr/bin/perl
use strict;
use warnings;

use Getopt::Long;
use Win32::Service;
use Mail::Sendmail;
use Time::localtime;
use POSIX;

# main-parameeters
my %config=(
....    
);