do { open2(bla, bla, bla) } if (-e $PROGRAM and -x $PROGRAM)