df -k | perl -lane 'print $F[3]'