--- IO-AIO/bin/treescan	2011/10/04 18:25:02	1.12
+++ IO-AIO/bin/treescan	2011/10/04 18:29:04	1.13
@@ -30,8 +30,7 @@
 $opt_grep &&= qr{$opt_grep}s;
 
 my ($n_dirs, $n_files, $n_stats) = (0, 0, 0);
-my $n_last;
-my $n_start = Time::HiRes::time;
+my ($n_last, $n_start) = (Time::HiRes::time) x 2;
 
 sub printfn {
    my ($prefix, $files, $suffix) = @_;