my ($a, $b) = (2,3);
sub test{
($package, $filename, $line, $subr, $has_args, $wantarray ) = caller($a);
print $package, $filename, $line, $subr, $has_args, $wantarray ; 
}