#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Win32::Process::Info;

my $wpi  = Win32::Process::Info->new;
my @info = $wpi->GetProcInfo;

print $_->{Name},"\n" for @info;

my @list = grep{ $_->{Name} =~ /gesuchteAnwendung\.exe$/ }@list;
kill $_->{ProcessId} for @list;