Select Code to Download

sub send_order_rxi {
my($aOrder) = @_;
...
    warn "rxi send $order failed: $@\n";
}
}

###################################################
# this is the 'if' block where the global symbol
...
    print FH "PUP " . $PUP_String;
}

########################################################
#  convert prism angle to its vertical and horizontal components
...
  return;
}

#############################################
# This is the beginning of the rxi.pm package
...
}
use vars @EXPORT_OK;