Add wallet size to stats

wack

@@ -7,6 +7,7 @@ use BerkeleyDB;
 my $DEBUG = $ENV{DEBUG} || 0;
 my %wallet;
 my $filename = shift || 'wallet.dat';
+my $filesize = -s $filename;
 my $db  = tie %wallet, 'BerkeleyDB::Btree',
         -Filename => $filename,
         -Subname  => "main",
@@ -26,7 +27,8 @@ sub is_kmd_prefix { $_[0] eq 'R' or $_[0] eq 'b'   }
 sub detect_coin {
     my ($c,$meta)  = @_;
     my $coin       = "BTC";
-    print "PREFIX=" . $meta->{prefix} . "\n";
+
+    print "Address Prefix=" . $meta->{prefix} . "\n";
     my $prefix = $meta->{prefix};
     my $p1 = substr($prefix, 0, 1);
 
@@ -117,7 +119,7 @@ for my $k (@keys) {
         printf "%-25s %s\n", $k, $counts->{$k};
     }
 }
-printf "Total: $count keys in $numkeys key types\n";
+printf "Total: $count keys in $numkeys key types ($filesize bytes on disk)\n";
 my $coin = detect_coin($counts,$meta);
 print "Coin detection: $coin\n";