diff --git a/moku_pattern_gen.pl b/moku_pattern_gen.pl
new file mode 100644
index 0000000..1504e0b
--- /dev/null
+++ b/moku_pattern_gen.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+#use Cwd;
+
+my $base_freq = 125 000 000;
+my $divider = 1;
+my $baudrate = $base_freq/$divider;
+
+my $sig_freq = 10 000 000;
+my $pulse_time = 9e-6;
+my $short_time = 1e-6;
+my $receive_time = 1e-5;
+my $recovery_time = 1e-7;
+
+mkdir('CODE-AFE_pattern'.sprintf("%.0f", $baud_rate).'MHz', 0777);
+chdir 'CODE-AFE_pattern'.sprintf("%.0f", $baud_rate).'MHz';
+
+my $filename = '>>CODE-AFE_pattern'.sprintf("%.0f", $sig_freq).'MHz.csv';
+open(MYOUTFILE, $filename);
+
+print MYOURFILE "Pin 1; Pin 2; Pin 3; Pin4; Pin5; Pin6;";