Select Code to Download

#!/usr/bin/perl

...
        my $app = new App( QUERY => $q );
        $app->run();
}

use base 'CGI::Application';
...
...
        ...
}
...