attrib("_write" => "HI FROM SSL"); } sub on_new_data { my $node = shift; my $data = shift; my $length = shift; print "got data:\n"; print "--$data--\n"; #$node->attrib("_write" => $data); } sub on_close { my $node = shift; 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"; } print "running\n"; $node = enode("csink-ssl.foo"); $node->attrib("action" => "connect"); ?>