(undef, $function_basefile, $function_line, $function) = caller(1);

(undef, $caller_basefile, $caller_line, $caller) = caller(2);