#!/usr/local/bin/perl

use Business:UPS;

%t = UPStrack("z10192ixj29j39");
$t{error} and die "ERROR: $t{error};

print "This package is $t{'Current Status'}\n"; # 'Delivered' or 
                                                # 'In-transit'
print "More info:\n";
foreach $key (keys %t) {
  print "KEY: $key = $t{$key}\n";
}