Select Code to Download

use CGI qw(:standard);

...
}

# do some footer stuff here

if ($page eq 'list_products') {
  list_products();
...
sub list_products {
  print '...';
}

%pages = (
  list_products => \&list_products,
...
sub list_products {
  print '...';
}

use base qw(CGI::Application);

...
  my $self = shift;
  return '...';
}

use base qw(CGI::Application);
use CGI::Application::Plugin::AutoRunmode;
...
  my $self = shift;
  return '...';
}