perl -e 'print grep(/X-[^Powered]/, `HEAD www.slashdot.org`)'