my $pid;
eval 
{
    $pid = open2(\*OUT, \*IN, 'diskpart');
};

if ($@ and $@ =~ /^open2:/) 
{
    die "$@:$!\n";
}

##</code><code>##

my $pid = open2(\*OUT, \*IN, 'diskpart');