#!/usr/bin/perl
for ($counthigh=0; $counthigh<4; $counthigh++){
#print "This is loop1\n";
for ($countmid=0; $countmid<8; $countmid++){
#print "This is loop2\n";
for ($countlow=0; $countlow<8; $countlow++){
#print "This is loop3\n";
#print "$counthigh$countmid$countlow\n";
$num = ${counthigh}.${countmid}.${countlow};
print "$num\n";
`echo -n -e "\\${num}" > /dev/para0`;
`echo -n -e "\\${counthigh}${countmid}${countlow}" > /dev/para1`;
`echo -n -e "\\${counthigh}${countmid}${countlow}" > /dev/para2`;
`echo -n -e "\\${counthigh}${countmid}${countlow}" > /dev/para3`;
`echo ${counthigh}${countmid}${countlow}`;
#`usleep 100`;
};
};
};