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