sub recurse_dir {
  require File::Find;
  File::Find::find(sub {
    if (-f $File::Find::name and $File::Find::name =~ /\.sas$/)
    {
      chmod 0644, $File::Find::name;
      print "$File::Find::name has been changed\n";
    }
  }, @_);
}