for i in *; do perl -c "$i" || rm "$i"; done