sub trace {
  my($package, $filename, $line) = caller;
  # ...
}