use strict; use vars qw($foo); use Pod::Constants -trim => 1, foo => \$foo; =head1 foo detcepxe =cut 1;