...

my $showPUV = 0;

...

sub FilterMessage {
  ...
  our $showPUV;
  ...