Language Basics Perl

print $^X;