my $showPUV = 0;

sub FilterMessage {
  ...
  if ( $showPUV ...
  ...