rlm@12: #!/usr/bin/perl -wT
rlm@12: 
rlm@12: $ENV{"PATH"} = "/usr/bin";
rlm@12: delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
rlm@12: 
rlm@12: unshift(@ARGV, "hg");
rlm@12: exec(@ARGV);