diff --git a/tools/list2cube.pl b/tools/list2cube.pl
index a03563e..15fbd13 100644
--- a/tools/list2cube.pl
+++ b/tools/list2cube.pl
@@ -5,6 +5,7 @@
 # license: GPL v3
 #
 
+use Time::HiRes qw(usleep nanosleep);
 my @list = <STDIN>;
 my $i = 0;
 
@@ -15,7 +16,10 @@ foreach my $line (@list)
     {
         my $frame = hex(substr($line,2,8));
         print "Adding ". $line. " with ". ($frame >> 27). " delay\n";
-        system("../client/clcc --save --pos $i --delay ". ($frame >> 27)." --frame $line");
+        my $cframe = $frame & 0x07ffffff;
+        #printf("0x%08x\n", $cframe);
+        system("../client/clcc --save --pos $i --delay ". ($frame >> 27)." --frame $cframe");
+        usleep(250000);
         $i++;
     }
 }