sub new { my $class = shift; my $self = $class->SUPER::new(); # call CGI::Application's new method # do your own initialization, as desired }