#!/usr/local/bin/perl

use strict;
use warnings;

use Win32::Process;
use Win32::Process::Info;

my $Process_Obj = Win32::Process::Info->new (undef , "NT");

my @info = $Process_Obj->GetProcInfo ();
my $Pid;
my $Name;
my %Process;

for my $i ( 0 .. $#info ){
	$Pid  = $info[$i]{"ProcessId"};
	$Name = $info[$i]{"Name"};
	print "$Pid \t $Name \n";
	$Process{$Pid} = $Name;
	}

print "What program do you want to kill?\n";

my $exit_code = 1;
my $kill = <STDIN>;
chomp $kill;

Win32::Process::KillProcess($kill, $exit_code)