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

system ("C:/Windows/System32/services.msc" ) or
    die "Cannot open file: $!";
?>