attrib("_write" => "hi\n\n"); } sub on_new_data { my $node = shift; my $data = shift; my $length = shift; print "data = \n"; print "$data\n"; $node->attrib("action" => "close"); } sub on_error { my $node = shift; my $err = shift; print "we have received an error\n"; print "$err\n"; } print "blah"; $node = enode("csink-ssl.foo"); $node->attrib("action" => "listen"); ?>