#!/usr/local/bin/perl

use POE qw(Kernel Session);

POE::Session->create( 
    'package_states' => [ 'main' => [ qw(_start) ] ],
);

$poe_kernel->run();

sub _start 
{
    print "Hello, world!\n";
}