open(LS, "/bin/ls -l ".$ENV{X_CONFIG_SPOOL_DIR} ."|"); while() { chop; ($a1, $a2, $a3, $a4, $a5, $a6, $a7, $a8, $a9, $a10) = split (' ', $_); if(length($a9) < 1) { next; } ?> $_ } close(LS); ?>