perl 模块Business::UPS 提供两个简单的函数用于从联合包裹服务（UPS，United Parcel Service）Web 站点访问信息。第一个函数getUPS () 返回一个包裹的运输成本和区域编号。第二个函数 UPStrack() 返回一个已运输的包裹的状态。下面是有关这两个函数的更详细的信息：
GetUPS() 接受四个基本参数：服务类型（比如第二天的空中和地面运输），出发地、目的地的邮政编码，以及包裹的重量。它返回一个数组，返回的数组由三个值组成：运输包裹的总成本、UPS 区域编号和一个错误字符串（如果可用）。
UPStrack() 接受 UPS 跟踪编号并返回一个哈希，当包裹被交付时包括包裹的当前状态（比如在交付或者在运输），接收人，目的地地址。返回的哈希还有一个列表，包含包裹被扫描的日期、时间、地点。
下面是一个例子：
use Business::UPS;
die "Usage: service origin_zip dest_zip weight
" if (@ARGV != 4);
($cost,$zone,$error) = getUPS(@ARGV);
$error and die "FAILURE: $error
";
print "Shipping is $$cost to zone $zone
";
