package main;
use MyApp;
my $app = MyApp->new(id=> '123');
$app->run();

package MyApp;
use base CGI::Application;
sub setup {
  my $self = shift;
  my $query = $self->query();
  my $id = $query->param('id');
}