package MyPackage;

while(1) {
   fetch_data();
   send_to_poe();    <<< this how & where I want to send to POE. so that while loop can process it should not wait for reply as it don't need reply so can say an async call
}


##</code><code>##

 POE::Session->create(
   inline_states => {
     _start => sub { $_[KERNEL]->yield("next") },
      next   => sub {
       print "listening...\n";
       $_[KERNEL]->delay(next => 1);
     },
   },
 );
 
 POE::Kernel->run();
# exit