for i in `cat dir_list`
do
   cp "../dbtohtml/$i/$i.pro" "$i/$i.pro"
done
