#!c:\Tools\perl\5.6.1\bin\MSWin32-x86\perl.exe
use CGI qw/:standard/;
$ENV{PATH} = "C:\\httpdocs;"; 
$| = 1;
print header;
print `dir`;