============ Partial Code ==================
#!c:\perl\bin\perl
 # Predeclare vars
 $var1="c\:";
 $var2="/code/";

 $thefile="$var1"."$var2"."blah.conf";
 print($thefile,"\n");
 open HANDLE,'>',"$thefile" or die;
 print(HANDLE <<FRED);

<Directory "$var1$var2">

</Directory>
FRED