use CGI qw(:all);

print header;
#replace your dir here ... this is Win2K IIS
my @rv = `dir /s c:\\Inetpub`;

print "<pre>";
foreach(@rv){ s/[^\w\n \\]+//ig; } #Removes Win2K yuck
# more sophisticated stuff left as exercise 
print @rv;