/usr/local/CPAN/Filter-Simple/Demo_Importer.pm

• package Demo_Importer
  • import
• EOF

package Demo_Importer;
$VERSION = '0.01';

use Filter::Simple;

sub import { 
	use Data::Dumper 'Dumper';
	print Dumper [ caller 0 ];
	print Dumper [ @_ ];
}

FILTER {
	s/dye/die/g;
}