Select Code to Download

package DB;

sub get_calling_object
...
    my @foo = caller(2);
    return $DB::args[0]
}