This was really simple to do... parsing out specifics from @rv is left up to you. (Win32/Perl 5.8)

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;
[download]