perl -e ' while (1) { $x .= " " x 1024 };'