Select Code to Download

    caller EXPR
    caller
...
    `@DB::args' might have information from the previous time
    `caller()' was called.

#!/usr/bin/perl

...
    print STDERR Data::Dumper::Dumper( caller(0) );
}

$VAR1 = 'main';
$VAR2 = './test';
...
$VAR9 = 0;
$VAR10 = '';