#!/usr/bin/perl -w 
use strict; 
use Cart::ShoppingCart; 
my $sc = Cart::ShoppingCart->new();
   $sc->run();