#c:\perl\bin\perl.exe -w
use CGI 'param','header';
print header('text/plain');
print "Dir:\n";
print `cmd.exe /c dir c:\\temp`;
print "\n\nver:\n";
print `cmd.exe /c ver -a`;
exit(0);

##</code><code>##

Dir:
Acceso denegado.


ver:

Microsoft Windows 2000 [Versi¢n 5.00.2195]


##</code><code>##

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print