#!/usr/local/bin/perl
use MyApp;
my $webapp = MyApp->new();
$webapp->start_mode('show_survey');
$webapp->run;