Data Type Perl

$title = "Reference Color";
$bodyColor = "FF0000";
$HTMLHead = "   $title  ";
$HTMLBodyColor="";
$headReference = \$HTMLHead;
$bodyReference = \$HTMLBodyColor;
open (OUTFILE, ">refColor.html");
print OUTFILE <$$headReference
$$bodyReference



eof
close(OUTFILE);