Select Code to Download

      my @start_command = ($service_start,'>',"${service}.out",'2>&1')
+ ;
      exec @start_command or
        print STDERR "ERROR: Cannot exec $service: $!\n" ;

    my ($status,$pid) = status() ;
    if ($pid > 0) {
...
      $message = $pid > 0 ?
    "$service_name could not be stopped, pid is $pid" :
      "$service_name killed" ;