use Smirch;

  Smirch::smear("tooClean.pl");