Hmm...

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

You probably meant

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

or vice versa.

Is that hashref $obj being used elsewhere in your code?