diff --git a/tools/bin/makeTitleIdDir.plx b/tools/bin/makeTitleIdDir.plx
new file mode 100644
index 00000000..acd35971
--- /dev/null
+++ b/tools/bin/makeTitleIdDir.plx
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+######################################################################
+#	genFontTable.pl
+#
+#	generate Secure Shared Font Data Table
+#
+######################################################################
+
+if ($#ARGV < 1) {
+    printf STDOUT ("Usage: %s SRL_file tgtDir\n", $0);
+    exit(-1);
+}
+
+open SRL, "<$ARGV[0]" or die;
+binmode SRL;
+
+
+# TitleID_Lo取得
+sysseek SRL, 0x230, SEEK_SET;
+my $data;
+sysread( SRL, $data, 4 );
+
+my @id = unpack( "cccc", $data);
+my $titleID_Lo = pack( "cccc", $id[3], $id[2], $id[1], $id[0] );
+#printf "%s\n", $titleID_Lo;
+
+
+# ROMバージョン取得
+sysseek SRL, 0x1e, SEEK_SET;
+sysread( SRL, $data, 1 );
+my $version = sprintf "%d\n", unpack( "c", $data );
+#printf "%s\n", $version;
+
+system( "mkdir -p $ARGV[1]/$titleID_Lo" );
+system( "mkdir -p $ARGV[1]/$titleID_Lo/V$version" );
+
+#TAD格納ディレクトリprint
+printf "$ARGV[1]/$titleID_Lo/V$version";
+
+close SRL
+