use strict;
use IPC::Open2;
use Carp;

eval { open2(*RDRFH, *WTRFH, 'xxx'); };
if ($@) { 
    if ($@ =~ /^open2/) {
        warn "open2 failed: $!\n$@\n";
        return;
    }
    die;            # reraise unforeseen exception
}