foreach $old_name (glob("*.DOC")) {
  my $new_name = &add_date($filename);
  rename($old_name,$new_name);
}