Select Code to Download

# Create the cart
my $cart = new Cart( type => 'DBI', id => $foo ); 
...
}
$cart->save;
print "Cart's new total is: ", $cart->total_cost();

package Cart;

...
    my ( $self, $cart ) = @_;
    # ... save to filesystem ...
}