my $pid = open ($handle, "-|");
if ($pid){
     my $return = <$handle>;
     close $handle;
     # Do something with the return value
} else {
     # Do something interesting
     print $handle "Something interesting";
     close $handle;
     exit;
}