I can do you one better, if (as it appears) you're trying to get information about a UPS package that's en route somewhere.
The Business::UPS module will allow you to query UPS and get back useful information. To quote from the POD:
#!/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";
}
"One word of warning: if you meet a bunch of Perl programmers on the bus or something, don't look them in the eye. They've been known to try to convert the young into Perl monks." - Frank Willison