Select Code to Download

print qq{caret is the special variable symbol for $^}.$/;
...
print ${ $main::{'$'} };

exit 0;