sub exec_restart { my $pids = param('pids'); my @pid = split(";",$pids); kill -9,@pid; print header; print qq( CONSOLE 0.1

killed... $pids

); }