#!/usr/bin/perl

package DB;

sub tester1 {   
        tester2("hello", "world");
}

sub tester2 {
	use Data::Dumper;
	local $Data::Dumper::Terse = 1;
	local $Data::Dumper::Indent = 0;
	
        my $n = 0;
        while (my @c = caller($n)) {
                print ">>> $n\n";
                for (@c) { print "    $_\n"; }
		print "    args: ";
		print Dumper \@DB::args;
		print "\n\n";
		$n++;
        }
}

package main;

DB::tester1("whoopee");