--- a/findUnicode.pl	Sat Jun 15 19:52:15 2013 +0900
+++ b/findUnicode.pl	Thu Dec 26 09:01:31 2013 +0900
@@ -6,6 +6,16 @@
 use open qw(:std :utf8); # input/output default encoding will be UTF-8, it looks like default
 
 my %used;
+my @fonts = <1[0-9]*.bdf> ;
+
+use Getopt::Std;
+our ($opt_f);
+
+getopts('f:');
+
+if ($opt_f) {
+    @fonts = ($opt_f);
+}
 
 while(<>) {
     for my $ch ( /(.)/g ) {
@@ -15,7 +25,7 @@
     }
 }
 
-for my $bdf (<1[0-9]*.bdf>) {
+for my $bdf ( @fonts ) {
    open(my $f,"<",$bdf);
    my %has;
    while(<$f>) {