if (my $pid = open(...) {
  while(<FH>) {
  }
  fudge():
} else{ 
}