Select Code to Download

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

package TraceMacro;

...
    print STDERR "$file ($line): $names[$i]:'$values[$i]'";
  }
}

use TraceMacro;

# ...
TRACE( $foo, $bar );