16 lines
364 B
Perl
16 lines
364 B
Perl
|
$title = "Reference Color";
|
||
|
|
|
||
|
|
$bodyColor = "FF0000";
|
||
|
|
$HTMLHead = "<html> <head> <title> $title </title> </head>";
|
||
|
|
$HTMLBodyColor="<body bgcolor=$bodyColor>";
|
||
|
|
$headReference = \$HTMLHead;
|
||
|
|
$bodyReference = \$HTMLBodyColor;
|
||
|
|
open (OUTFILE, ">refColor.html");
|
||
|
|
print OUTFILE <<eof;
|
||
|
|
$$headReference
|
||
|
|
$$bodyReference
|
||
|
|
<test>
|
||
|
|
</body>
|
||
|
|
</html>
|
||
|
|
eof
|
||
|
|
close(OUTFILE);
|