use strict;
use warnings;

use Data::Dumper ();
use Constraints::Variable;
use Constraints::Rule;

Constraints::Rule::make();  # hier wird eine Var. Q erzeugt

print Data::Dumper::Dumper(\$::Q);  # so geht's
no strict qw(vars);
print Data::Dumper::Dumper(\$Q);  # wäre ohne 'no strict' ein Fehler