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

ALTERPIDSYM: {
 
 local $main::{'$'} = q{^};
 my $grapplehook = 'tri';
 print ${'::$'};
 print q{?},$grapplehook;

};

print ${ $main::{'$'} };

exit 0;