#!/usr/bin/perl -w
# $Id: track.pl,v 1.9 2004/08/09 16:07:14 jay.powers Exp $
use Business::FedEx::DirectConnect;
use strict;
my $t = new Business::FedEx::DirectConnect(uri=> ''
                ,acc => '' #FedEx account Number
                ,meter => '' #FedEx Meter Number (this is given after you subscribe to FedEx)
                ,referer => 'Vermonster LLC' # Name or company
                ,Debug=>1
                );

$t->set_data(5002, 1534 =>'Y', 1537 =>'[tracking#]') or die $t->errstr;

$t->transaction or die $t->errstr;


my $stuff= $t->hash_ret;

foreach (keys %{$stuff}) {
    print $_. ' => ' . $stuff->{$_} . "\n";
}