Select Code to Download

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

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