my $zip_to = "60446";
my $zip_from = "60187";
my $weight = 2.26";

my $package = Net::UPS::Package->new();
    $package -> weight($weight);
    
#dumped here

my $services = $ups->shop_for_rates($zip_from, $zip_to, $package);
while (my $service = shift @$services ) {
    $message .= sprintf("%-22s => \$.2f", $service->label, $service->total_charges);
    if ( my $days = $service->guaranteed_days ) {
        sprintf("(delivers in %d day%s)\n", $days, ($days > 1) ? "s" : "");
    } else {
         "\n";
    }
}