use Devel::Symdump;

$obj = Devel::Symdump->rnew();
$string = $obj->as_string;
print $string . "\n";

print "What is this? $+\n";
print "What is this? $^O\n";