Select Code to Download

if ( $obj->validate($q->param('new_userid')) ) {
   create_new_user( $q->param('new_userid'))
...
     $obj->error
   );
}

eval { $obj->get_stuff_a() }; if ($@) { $obj->try_a_backup() }
eval { $obj->get_stuff_b() }; if ($@) { $obj->try_b_backup() }
eval { $obj->get_stuff_c() }; if ($@) { $obj->try_c_backup() }

$obj->get_stuff_a() || $obj->try_a_backup || die $obj->error;
$obj->get_stuff_b() || $obj->try_b_backup || die $obj->error;
...
   warn 'Had to use one or more backup sources because:'."\t\n"
       .join("\t\n", @err)."\n";
}