It might be a good idea to do this in code.

sub marsify {
  my ($func) = @_;
  
  return sub {
    my @mars_caller =  caller(0);
    mars::print::call(\@mars_caller, \@_);
    $func->(@_);
  }
}

# enumerate through package symbols, finding subroutines

# for each sub found
# patch symbol table:
*subname = marsify(\&subname);
[download]

I'm sure someone can fill me in -- I'm not familiar enough with the symbol table tricks to pull this off.