#!/usr/bin/perl

use lib '.'; 

use Business::FedEx::RateRequest;

use Data::Dumper;

my %rate_args; 
$rate_args{'account'}  = '186274725'; #FedEx Account Number # Fedex account number 186274725
$rate_args{'meter'}    = '102310577';  #FedEx Meter Number 
$rate_args{'key'}      = 'su0IbLn83awfxRvh';
$rate_args{'password'} = 'KUoBkBzjG1pbaajq1z6RsMsWF'; # ECQfM9BQm7uxiqTI4kIauuaRh
$rate_args{'uri'}      = 'https://gateway.fedex.com:443/xml';

#$rate_args{'uri'}      = 'http://gateway.fedex.com/xml';
$rate_args{'timeout'}  = 14;

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

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

#$ship_args{'dropoff_type'}  = 'REQUEST_COURIER';
 
#$ship_args{'dst_country'} = 'CA';
# $ship_args{'dst_zip'} = 'V1C 0A1'; 

$ship_args{'dst_residential'} = 'false';
#$ship_args{'insured_value'} = '10000';

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

my $version = $Business::FedEx::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 "\nVersion $version  $INC{'Business/FedEx/RateRequest.pm'} \n";