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;
}