tokubass

use strict;
use warnings;

my $dis = MyDispatch->new;
$dis->print;



package MyDispatch {
    use CGI;