sub calling_object {
 my @a = do { package DB; @DB::args = (); caller(2); };

 $DB::args[0];
}