#!/bin/perl

$flg=1;
#perl wait_for_ps.pl Pmy_ps Pfather_of_my_ps
$ARGV[0] =~ s/P//;
$ARGV[1] =~ s/P//;
$cmd="ps -aef | grep \"" . $ARGV[0] . " *" . $ARGV[1] . "\"";
while($flg == 1) {
  $c=`$cmd`;
  if(length($c) < 1) {
    $flg=0;
  }
  sleep(5);
}#while
system("~/bin/bip.unx");
exit(0);