#!perl
use strict;
use autodie;
use Win32::Service qw'GetServices GetStatus StartService';
use POSIX;

my @state_name =  qw( UNKNOWN Stopped START_PENDING STOP_PENDING
                      Started CONTINUE_PENDING PAUSE_PENDING
                      PAUSED  ERROR  );
my $date = strftime("%Y-%m-%d", localtime);
my ($shortname, %status, $state_no);

my $filename = '/Users/Documents/Traning/Perl/XiServiceList.txt';
open FILE, '<', $filename;# autodie
my $hostname = <FILE>;
chomp $hostname;
open MYFILE, ">>", "/Users/Documents/Traning/dailycheck\_$date\.log";
print MYFILE "Checking Services available for '$hostname'\n";
my %available=();
GetServices($hostname,\%available) or die "$!";

# add short names
$available{$_} = $_ for values %available;

print MYFILE "Checking services in list\n";