#!/usr/bin/perl -w
# $Id: ship.pl,v 1.6 2004/08/09 16:07:14 jay.powers Exp $
use strict;
use Business::FedEx::DirectConnect;
my $t = Business::FedEx::DirectConnect->new(uri=>''
,acc => '' #FedEx Account Number
,meter => '' #FedEx Meter Number (This is given after you subscribe to FedEx)
,referer => 'Vermonster' # Name or Company
,Debug => 1
);
# 2016 is the UTI for FedEx. If you don't know what this is
# you need to read the FedEx Documentation.
# http://www.fedex.com/globaldeveloper/shipapi/
# The hash values are case insensitive.
$t->set_data(3000,
'sender_company' => 'Vermonster LLC',
'sender_address_line_1' => '312 stuart st',
'sender_city' => 'Boston',
'sender_state' => 'MA',
'sender_postal_code' => '02134',
'recipient_contact_name' => 'Jay Powers',
'recipient_address_line_1' => '44 Main street',
'recipient_city' => 'Boston',
'recipient_state' => 'MA',
'recipient_postal_code' => '02116',
'recipient_phone_number' => '6173335555',
'weight_units' => 'LBS',
'sender_country_code' => 'US',
'recipient_country' => 'US',
'sender_phone_Number' => '6175556985',
'packaging_type' => '01',
'pay_type' => '1',
'customs_declared_value_currency_type' => 'USD',
'service_type' => '92',
'ship_date' => '20040809',
'total_package_weight' => '1.0',
'label_type' => '2',
'label_printer_type' => '1',
'label_media_type' => '5',
'drop_off_type' => '1',
'future_day_shipment'=>'N'
) or die $t->errstr;
$t->transaction() or die $t->errstr;
print $t->lookup('tracking_number');
$t->label("myLabel.png");