#!/usr/bin/perl
@subdirs=`ls `;
@subdirs=`ls -c -d driggs_nlc_cam/*_*`;
foreach $directory (@subdirs){
@wds = split(/_+/,$directory);
foreach $string (@wds){
$name = "$name "." $string";
}
print "
$name
";
$name="";
@files=`ls $directory`;
foreach $filename (@files){
print " $filename
\n";
}
}