use strict;
$Foo::str = 'foo str';
my $class = 'Foo';
my $value = eval "\$$class\::str";
print $value,$/;