$package = caller;
  @info = caller;
    # -> ($package, $file, $line)
  $package = caller($i);
  @extra_info = caller($i);
    # -> ($pack, $file, $line, $sub, $hasargs, ...)