--- a/pool.pl	Thu Mar 23 19:50:56 2006 +0900
+++ b/pool.pl	Thu Mar 23 21:56:08 2006 +0900
@@ -65,6 +65,7 @@
 my $type = "file";
 my $pool = Calcon::Pool->new();
 my $last_flag = 0;
+my $first_flag = 1;
 
 while(my $file = shift( @ARGV )) {
     my ($obj,$out,$opt);
@@ -74,8 +75,18 @@
 	$type = $2;
 	$opt = $3;
 	$file = shift(@ARGV);
+	$first_flag = 0;
     } else {
 	&usage_die();
+
+#
+#       decode を呼び出しても処理は繰り返し行われないらしい
+#
+#	if ($first_flag) {
+#	    &usage_die();
+#	} else {
+#	    $file = shift(@ARGV);
+#	}
     }
 
     if (0 && $#ARGV==1 && $ARGV[0]=~/^-output/) {