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

##</code><code>##

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