Select Code to Download

        
#!/usr/bin/perl
use strict; use warnings;
...
    my @foo = caller( ( $level || 0 ) + 3 );
    wantarray ? @DB::args : \@DB::args;
}