0:16 >perl 1022_SoPW.pl
{ kept => 0, notkept => 0, repaired => 0 }
{ kept => 1, notkept => 0, repaired => 3 }

 0:16 >