Select Code to Download

my %Mode = ( 
...
    &default;
}

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

 my $q = $self->query(); 
 

 my $q = CGI->new;
 

sub add_to_cart { 
...
     
}

 
print $q->redirect(-uri => $some_url); 

 
sub cart_summary { 
    my $self = shift;
...
       
 }

 

[% WRAPPER basic_admin_page.html %]
...

[% END %]

    [% INCLUDE basic_page.html %]