perl -we 'print map{ -f; (stat(_))[7], " bytes\n"; } <*.db>'