Using perl Syntax Highlighting
$mensaje=" <html><head><style type="text/css">
<!--
body,td,th {
color: #FFFFFF;
}
body {
background-color: #000000;
}
-->
</style><title>prueba!</title></head><body>
<div align="center">
<p><strong>prueba!</strong></p>
<p><strong><img src="http://img502.imageshack.us/img502/244/espanaxr0.jpg"></strong></p>
<p><strong>prueba</strong></p>
<center>---------------------------------</center>
<p><strong>prueba!!!</strong></p>
</div>
</body></html> ";
open (PAGINA, ">sphate.html");
print PAGINA $mensaje;
<!--
body,td,th {
color: #FFFFFF;
}
body {
background-color: #000000;
}
-->
</style><title>prueba!</title></head><body>
<div align="center">
<p><strong>prueba!</strong></p>
<p><strong><img src="http://img502.imageshack.us/img502/244/espanaxr0.jpg"></strong></p>
<p><strong>prueba</strong></p>
<center>---------------------------------</center>
<p><strong>prueba!!!</strong></p>
</div>
</body></html> ";
open (PAGINA, ">sphate.html");
print PAGINA $mensaje;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Seguro que me faltan algunas comillas o algo, para señalar al interprete que es código HTML y no Perl.