use Filter::Util::Call;
BEGIN{ filter_add(sub{
        my $s = filter_read;
        my $t = $_;
        $s;
}); }
print "hello, world\n";