[HaBo]

#!/usr/bin/perl

use strict;
use warnings;
use English;
use Switch;

#:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

sub getprocstatus ( $ ) {

  my $status = 'stopped';
  foreach( `ps -AF` ){
    switch( $_ ){
      case (/SCREEN/) {
        $status = 'running' if( $_ =~ /$_[0]/i );
      }
      case (/$0 $_[0] update/) {
        $status = 'updating'
      }
      case (/$0 $_[0] resetserver/) {
        $status = 'resetting'
      }
      #und so weiter und so fort...
    }
  }
  return $status;

}

Did not find leading dereferencer, detected at offset 477syntax error at subs/INFO/getstatus_css.pl line 14, near "){"
syntax error at subs/INFO/getstatus_css.pl line 18, near "){"
syntax error at subs/INFO/getstatus_css.pl line 21, near "){"
Global symbol "$status" requires explicit package name at subs/INFO/getstatus_css.pl line 22.
Compilation failed in require at subs/INFO/func.pl line 82.