sub run_command
{
    my $command = shift;

    system($command);
    if ($?)
    {
        my $rc = $? >> 8;
        die "Failed to run '$command': exit code $rc\n";
    }
}

run_command('vxdg deport oracle');
run_command('something else ...');