Reformatted to fit 80 chars

bin/timestamp.pl

 
 sub stamp {
     my $time = shift;
-    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = (localtime($time));
-    return sprintf "%04i-%02i-%02i %02i:%02i:%02i.%05i",
-                    $year + 1900,   $mon + 1,   $mday,
-                    $hour,          $min,       $sec,     ( modf $time)[0] * 100000;
+    my ($sec,   $min,   $hour,
+        $mday,  $mon,   $year,
+        $wday,  $yday,  $isdst) = (localtime($time));
+    return sprintf
+        "%04i-%02i-%02i %02i:%02i:%02i.%05i",
+        $year + 1900,   $mon + 1,   $mday,
+        $hour,          $min,       $sec,
+        ( modf $time)[0] * 100000;
 }
 
-
 while (1) {
     print stamp Time::HiRes::time();
     print "\n";