#!/usr/bin/perl # Make a webpage linking to all files in directory print"
\n"; open(F,"du|") || die "du"; while(\n";) { chomp; if (/\t(.*)/) { open(L,"ls $1|") || die "ls $1"; while( ) { chomp; $fn="$1/$_"; if (-f $fn) { print "$fn\n"; } } } } print "