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) {