Select Code to Download

package MyApp;
use base 'CGI::Application';
...
   $self->session->param('name') ? 1 : 0;
}

#!/usr/bin/perl
use MyApp;
...
$app->run;

# DONE