minor changes, bug fixes

stirctl

@@ -18,7 +18,7 @@ $cmd=join(':',@ARGV);$cmd='info' if ($cmd=~/^\s*$/);
   
 @r=split(':',&scmd($cmd));
 
-print  "              Left Right\n";
+print  "                Left   Right\n";
 printf("Stirrer On:   %6d  %6d\n", $r[0],$r[14]);
 printf("Speed:        %6d  %6d\n", $r[1],$r[15]);
 printf("Boost Speed:  %6d  %6d\n", $r[2],$r[16]);
@@ -54,7 +54,6 @@ sub scmd() { ###################################################################
   }
 
   $msg=~s/[\r\n]+//g;
-  print "$msg\n";
   return $msg;
 }