.<BR>
..<BR>
.listing<BR>
camelids.xml<BR>
cook.pl<BR>
file_itiran_run.pl<BR>
file_list.pl<BR>
file_select.pl<BR>
module<BR>
print_dir_list.pl<BR>
print_dir_list_kensu.pl<BR>
print_dir_list_sort.pl<BR>
print_file_dir.pl<BR>
print_file_size.pl<BR>
print_getdata.pl<BR>
print_list_env.pl<BR>
print_script.pl<BR>
print_time.pl<BR>
tes.pl<BR>
<HR><HR><HR>program_list<pre><BR>#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
	@dir_list = sort &amp;dir_list("./");

	foreach (@dir_list){
		print $_."&ltBR&gt\n";
	}

&amp;print_s_link;
exit;

sub dir_list{
	opendir(DIR,"$_[0]");
	local(@list) = readdir(DIR);
}

################上までがプログラム本体下はソース表示のためのプログラム
sub print_s_link{
	require './module/type_script.pm'
	&amp;type_script'type_script($ENV{'SCRIPT_NAME'})
}</pre>