--- ps2rrd.pl	2009/07/17 10:34:42	9
+++ ps2rrd.pl	2009/07/17 12:37:29	10
@@ -20,8 +20,6 @@
 	my $file = shift;
 	open(my $fh, '<', $file) || die "$file: $!";
 
-	print STDERR ".";
-
 	my $t = mktime( 0, $5, $4, $3, $2 - 1, $1 - 1900 ) if $file =~ m{(\d\d\d\d)-(\d\d)-(\d\d)/(\d\d)(\d\d)};
 
 	warn "# $file ", -s $file, " bytes [$t]\n" if $debug;
@@ -54,6 +52,7 @@
 		my $s = c('VSZ');
 		if ( $s < $too_small ) {
 			$vsz->{$t}->{$veid}+= $s * 1024;
+			print STDERR ".";
 		} else {
 			my $cmd = c('COMMAND');
 			$cmd =~ s{-.+$}{};
@@ -64,6 +63,7 @@
 			$veid .= '-' . $cmd;
 			$veid = substr($veid,0,16);
 			$vsz->{$t}->{$veid}+= $s * 1024;
+			print STDERR substr($cmd,0,1);
 		}
 		$veids->{$veid}++;
 	}