package pq;
.
use constant { VAR => "main::$VAR" };
.
.
sub pr { print main::$VAR; print VAR; }