#!/usr/bin/perl

use lib '.'; 

use Business::USPS::RateRequest;

use Data::Dumper;

my %rate_args; 
$rate_args{'usr_id'}  = '390SAMMC6077'; #USPS Account Number 
$rate_args{'uri'}      = 'http://production.shippingapis.com/ShippingAPI.dll'; # Production

my $Rate = new Business::USPS::RateRequest(%rate_args);

my %ship_args;
$ship_args{'src_zip'} = '28217'; 
$ship_args{'dst_zip'} = '83835'; 
$ship_args{'dst_zip'} = '09180'; 

$ship_args{'pounds'} = 5; 
$ship_args{'oz'} = 1; 

#$ship_args{'dst_zip'} = 'V1C 0A1'; 
#$ship_args{'country'} = 'Canada';

my $rtn = $Rate->get_rates(%ship_args);

my $version = $Business::USPS::RateRequest::VERSION;

if ( $rtn ) 
{
        print "$ship_args{src_zip} to $ship_args{dst_zip} package $ship_args{weight}\n";
        print Dumper $rtn; 
}
else
{
   print $Rate->err_msg(); 
}  

print "Version $version  $INC{'Business/USPS/RateRequest.pm'} \n";