$r->print('mod_perl rules!' . $obj->{one});