This script runs, but I noticed 2 things.
1. Running it complains about an unitialized value
at line 37, $prefix. Maybe add an else clause.

 if ($time < 0) {
    $time = - $time;
    $prefix = "- ";
    }else{$prefix=''}
[download]

2. I'm getting a strange chr(2), "shaded box", printed out
as a separator between each field. In the example below
'a' is shown where I show a shaded box.
a8ah a53am a25as
I can see where it's coming from, it kindof gives it an
"odometer" effect. :-) Maybe remove the \002 's from
the push @data lines.