#!/usr/bin/perl
use Business::FedEx::RateRequest;

use Data::Dumper;

        # Get your account/meter/key/password numbers from Fedex 
        my %rate_args; 
        $rate_args{'account'}  = ''; 
        $rate_args{'meter'}    = '';  
        $rate_args{'key'}      = '';
        $rate_args{'password'} = '';

		$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'}      = 'https://gatewaybeta.fedex.com:443/xml/rate';

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

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

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

        if ( $rtn )     { print Dumper $rtn }
        else        { print $Rate->err_msg() }