#!/usr/bin/perl use strict; use warnings; use FindBin (); use lib $FindBin::Bin; use TestApp; my $webapp = TestApp->new(); $webapp->param(test => 1, one => 'hello', two => 'world'); $webapp->run();