#!/usr/bin/perl

use Business::Shipping;

my $rate_request = Business::Shipping->rate_request(
    event_handlers    => {
            'debug' => 'STDERR',
            'debug3' => undef,
            'trace' => 'STDERR', 
            'error' => 'STDERR',
    },
    
    'shipper' => "UPS_Offline",
    
    'from_state' => "Washington",
    'from_zip' => "98682",
    'from_country' => "US",
    
    'weight' => 1,
    'service' => "3DS",
    'to_country' => "US",
    'to_zip' => "28562",
    
);

not defined $rate_request and die $@;

$rate_request->submit() or die $rate_request->user_error();

print "\$" . $rate_request->total_charges() . "\n";
