The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
RCAPUTO / POE-Stage-0.060 / examples / poe-stage-synopsis.perl 
#!/usr/bin/env perl
{
	package App;
	use POE::Stage::App qw(:base);
	sub on_run {
		print "hello, ", my $arg_whom, "!\n";
	}
}
App->new()->run( whom => "world" );
exit;