Select Code to Download

#!/usr/bin/perl
use strict;
...
   
   return $current_time;   
}

acceleration (mg) - 2013-10-09 10:00:00 - 2013-10-16 09:59:55 - sample
+Rate = 5 seconds,    imputed
46.3,    0
...
83.5,    0
155,    0
103.5,    0

#acceleration (mg) - 2013-10-09 10:00:00 - 2013-10-16 09:59:55 - sampl
+eRate = 5 seconds,    imputed
Date        Time        Day    mg
2013-10-09    10:01:00    Wed    74.0583333333333