perl -e "map chomp(+()), ('')x10000;" perl -e "map chown(+()), ('')x10000;" perl -e "map warn(+()), ('')x100;"