Select Code to Download

int conn = socket(.....);

...
LEAVE;

sub the_callback_function {
  my ($conn) = @_;
...
  $c->autoflush(1);
  $c->send("Network data!\n");
  .....

PerlIO* conn_pio;
conn_pio = PerlIO_fdopen(conn,"r+");