use strict;

open PS, "ps |" or die "$!";
while (<PS>) {
       chomp;
       my @process = split;
       next if $process[0] =~ /[^\d]/;
       print "Would you like to kill the following process?\n";
       print "$_\n";
       chomp (my $ans = <STDIN>);
       kill 9 => $process[0] if $ans eq 'yes';
}
close PS;