# module: filtertest
package filtertest;
use Filter::Util::Call;
sub import {
    my($type, @arguments) = @_;
    filter_add(
        sub {
            my($status);
            $status = filter_read();
            s/word/world/g if ($status > 0);
            $status
        } 
    )
}
1;