system ("vxdg deport oracle");
if ($?){
  $rc = $_ >> 8;
  print "Could not deport oracle";
  exit 1;
}