$ cat FSTest.pm
package FSTest;

use Filter::Simple;

FILTER {
  print STDERR "in FILTER, caller package: ", (caller( 1 ))[0], "\n";
}

1;
$ perl -MFSTest -e 0
in FILTER, caller package: main