#!/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;";