perl -e "print $^X"