#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use Win32::OLE qw(in);

my $dbh = DBI->connect('dbi:WMI:');

my $sth = $dbh->prepare(<<WQL);
SELECT * FROM Win32_Service WHERE Name = '$ARGV[0]'
WQL

$sth->execute();
if (my $row = $sth->fetchrow()) {
printf( "%-20s - %10s %8i\n\t%s\n",
$row->Name, $row->State, $row->ProcessID, $row->PathName
);
}