if( my $pid = open ... ){
} else {
   die Fudge();
}