Select Code to Download

#!/usr/bin/perl
use strict; use warnings; use Data::Dumper;
...
  print Dumper($sub);
  &$sub($help);
}

package Foo;
use strict; use warnings;
...
}

1;

POS: A
$VAR1 = sub { "DUMMY" };
Message is:
POS: B
$VAR1 = sub { "DUMMY" };