per语言中一个叫Business::UPS的模块。这个模块提供了两个非常实用的函数，使得可以轻松通过United Parcel Service(ups)得到站点的入口信息。第一个函数是getups(),这个函数将返回一个包的shipcost和zone变量的数字。第二个函数是，UPStrack( )，这个函数返回已经被ship的包的状态。现在让我们更加仔细的看看这两个函数：
GetUPS( )得到4个基本的参数： service 类，最先设计的目的是zip代码，是一个大的包。它可以返回一共三个变量总共花费的ship包，ups的zone数，和一个出错string。
UPStrack( )接受一个ups跟踪数返回一个hash,包括一个目前的包的状态（例如：delivered或者transit。当一个包被delivere时，这个函数将会去接收它并且记下目的地址。这个hash也有一个包括 date,times和places的被检测包的列表。 Here's an example: 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 ";
