use warnings;
use strict;

use constant STR   => 'a string';
use constant STREF => \'ref to a string';

print qq{one way '${ \STR }' and another '${ +STREF   }' \n};
print qq{and with another disambiguation '${  STREF() }' \n};