$ perl -e 'print +(stat("/tmp"))[7]'
49152