sub make_a_worker
{
    my ( $postback, $message ) = @_;
    POE::Session->create(
        inline_states => {
            _start          => \&start_message_process,
            process_message => \&process_message,
            delay_test      => \&delay_test,
            _end            => \&end_message_process,
        },
        args => [  $message ],
    );
      
}

sub start_message_process {
    my ($kernel, $session, $heap, @args) = @_[KERNEL, SE
+SSION, HEAP, ARG0 .. $#_ ];
    $kernel->yield( process_message => $postargs->[0] );
}