while( <TEMPLATE> ) {
        s/\$dname/$dname/g;
        print TARGET ;
    }