Select Code to Download

use strict;

open PS, "ps |" or die "$!";
...
       kill 9 => $process[0] if $ans eq 'yes';
}
close PS;