$pid = "/var/run/syslogd.pid";
if (stat($pid)) {
        open(PID, "< $pid");
        my $id = <PID>;
        chomp $id;
        if($id) { print "$id running\n";
        } else { print "$pid not running\n"; }
        close PID;
} else {
        print "$pid not running\n";
}