attrib("_write" => "GET / HTTP/1.0\n\n"); $page = ""; } sub on_new_data { my $node = shift; my $data = shift; my $length = shift; print "data!\n"; $page = $page . $data; } sub on_close { my $node = shift; print "we have closed; the page(with headers) is:\n"; print "$page\n"; print "\n"; print "bye!\n"; $node->call("entity:exit"); } sub on_error { my $node = shift; my $err = shift; print "we have received an error\n"; print "$err\n"; } $node = enode("csink.foo"); $node->attrib("action" => "connect"); ?>