sub the_callback_function {
  my ($conn) = @_;

  open(my $c,"+<&=$conn");
  bless $c, 'IO::Socket::INET';
  $c->autoflush(1);
  $c->send("Network data!\n");
  .....