sub cpnewest {
copy("$sourcedir$_","$destination$_"); 
}