#!/usr/bin/perl
 
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

use Business::FedEx::RateRequest;
use Data::Dumper;  
 
# init CGI object
$cgi = CGI->new();
 
print $cgi->header(-type=>"text/html");
 
print "start<br>\n";
 
# set up account/meter/key/password numbers from Fedex
my %rate_args;
$rate_args{'account'}  = '[acctnum]';
$rate_args{'meter'}    = '[meter]';
$rate_args{'key'}      = '[key]';
$rate_args{'password'} = '[password]';
$rate_args{'uri'}      = ' https://wsbeta.fedex.com:443/web-services';
 
$rate_args{'uri'}      = 'https://gateway.fedex.com:443/xml';
 
 
print "create object<br>\n";
 
my $frate = new Business::FedEx::RateRequest(%rate_args);
 
my %ship_args;
$ship_args{'src_zip'} = '84123';
$ship_args{'dst_zip'} = '84118';
$ship_args{'weight'}  = 5;
 
print "request rate<br>\n";
 
my $fres = $frate->get_rates(%ship_args);
 
if ($fres) {
  print Dumper $fres; }
else {
  print $frate->err_msg(); }
 
print "<br>\n";
print "end<br>\n";
 
exit;