package Demo_Exporter; $VERSION = '0.01'; use Filter::Simple; use base Exporter; @EXPORT = qw(foo); # symbols to export by default @EXPORT_OK = qw(bar); # symbols to export on request sub foo { print "foo\n" } sub bar { print "bar\n" } FILTER { s/dye/die/g; }