#!/usr/bin/perl
my $search_self_cmd = "ps auwx | grep $0 | grep -c -v grep";

my $self_count = int(`$search_self_cmd`);
if($self_count > 1) {
  die "$0 already running";
}

my $search_cmd = "ps auwx | grep wahcade | grep -c -v grep";

while(1) {
	my $count = int(`$search_cmd`);
	if(!$count) {
		my $child_pid = fork();
		if(!$child_pid) {
			system("wahcade");
			exit;
		}
	}
	sleep(5);
}