Index: lang/perl/WWW-MobileCarrierJP/trunk/tools/check_http_mobileagent_flash_map.pl
===================================================================
--- lang/perl/WWW-MobileCarrierJP/trunk/tools/check_http_mobileagent_flash_map.pl (revision 2791)
+++ lang/perl/WWW-MobileCarrierJP/trunk/tools/check_http_mobileagent_flash_map.pl (revision 2791)
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use FindBin;
+use File::Spec;
+use HTTP::MobileAgent::Flash::DoCoMoFlashMap qw/$FLASH_MAP/;
+
+use lib File::Spec->catfile($FindBin::Bin, '..', 'lib');
+use WWW::MobileCarrierJP::DoCoMo::Flash;
+
+my $dat = WWW::MobileCarrierJP::DoCoMo::Flash->scrape;
+
+for my $version (@$dat) {
+    for my $model (@{$version->{models}}) {
+        unless (exists $FLASH_MAP->{$model->{model}}) {
+            warn "orz: $model";
+        }
+    }
+}