package DB;

sub uplevel_args
{
    my $level = shift;
    my @foo   = caller( $level );
    return @DB::args;
}