perl -le "print $^X"