WriteMakefile(
    ...
    CC => "$^X bin/fake-cc", # shell quoting matters here!
);

##</code><code>##

#!perl
for ( map extract_paths( $_ ), @ARGV ) {
    # stash this somewhere, I guess.
}

# etc.