NAME Business::UPS - A UPS Interface Module SYNOPSIS use Business::UPS; my ($shipping,$ups_zone,$error) = getUPS(qw/GNDCOM 23606 23607 50/); $error and die "ERROR: $error\n"; print "Shipping is \$$shipping\n"; print "UPS Zone is $ups_zone\n"; %track = UPStrack("z10192ixj29j39"); $track{error} and die "ERROR: $track{error}"; # 'Delivered' or 'In-transit' print "This package is $track{Current Status}\n"; DESCRIPTION A way of sending four arguments to a module to get shipping charges that can be used in, say, a CGI. REQUIREMENTS I've tried to keep this package to a minimum, so you'll need: * Perl 5.003 or higher * LWP::UserAgent Module ARGUMENTS for getUPS() Call the subroutine with the following values: 1. Product code (see product-codes.txt) 2. Origin Zip Code 3. Destination Zip Code 4. Weight of Package and optionally: 5. Country Code, (see country-codes.txt) 6. Rate Chart (drop-off, pick-up, etc - see below) 6. Length, 7. Width, 8. Height, 9. Oversized (defined if oversized), and 10. COD (defined if C.O.D.) 1 Product Codes: 1DM Next Day Air Early AM 1DML Next Day Air Early AM Letter 1DA Next Day Air 1DAL Next Day Air Letter 1DP Next Day Air Saver 1DPL Next Day Air Saver Letter 2DM 2nd Day Air A.M. 2DA 2nd Day Air 2DML 2nd Day Air A.M. Letter 2DAL 2nd Day Air Letter 3DS 3 Day Select GNDCOM Ground Commercial GNDRES Ground Residential XPR Worldwide Express XDM Worldwide Express Plus XPRL Worldwide Express Letter XDML Worldwide Express Plus Letter XPD Worldwide Expedited In an HTML "option" input it might look like this: