#!/usr/bin/perl

use strict;
use warnings;
use Win32::Process::List;

my $list = Win32::Process::List->new;
my %hash = $list->GetProcesses;
if( grep{ /wperl\.exe/ }values %hash ){
    print "wperl.exe laeuft noch\n";
}