#!/usr/bin/perl
use strict;
use warnings;

if(scalar(grep{/$0/}`ps aux`)-1)
{ print "Laufe schon\n"; }
else
{ sleep 10; }