df -P | perl -ne 'printf("%5s %s\n", (split(/\s+/, $_))[4, 5])'