Select Code to Download

df -P | awk '/^\//{printf("%5s %s\n", $5, $6);}'

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

use Filesys::Statvfs;

...
                     Free inodes: $ffree (${\(int $ffree/$files*100)}%
+)
EOT
}