#!/usr/bin/perl -w 
use strict;
use lib qw @ /path/to/directory/my/binary/runs/from @;
use Cart;

my $cart = new Cart();
|
| hand waving
|
$cart->doCart($arg1,$arg2,$arrg3,$arrr_ahoy_matey);
|
| etcetera...
|