28066  p3  S+   353:01.11 perl /Library/WebServer/Documents/perlscripts/refresh/getDat    ##This is supposed to be getDataLive.pl script i want to monitor.
   571 std  S+     0:00.05 perl systemcmd.pl  ##The name of my script file
   590 std  S+     0:00.02 sh -c ps - auwwx | grep perl
   592 std  R+     0:00.00 grep perl

##</code><code>##

        open(PS_F, "ps - auwwx | grep perl |") || die "Can't open console\n";
        my @data = <PS_F>;
        close(PS_F);

        my $res_data = join(" ",@data);
        print "Res data is $res_data\n---\n";
        my $comm = $res_data;
        $comm =~ s/\n//g;
        $comm =~ s/\r//g;

        if($comm =~ m/getDataLive.pl/i) {