package Filter::Include;
use warnings; use strict;
use Filter::Util::Call;
sub import
{
        @_==2 or die qq{usage: use Filter::Include "filename"};
        open my $f, "<", $_[1] or die qq{cannot open include file "$_[1]": $!};
        read $f, my $d, -s $f or die qq{cannot read file "$_[1]": $!};
        filter_add(sub {
                $_ = $d;
                filter_del();
                1;
                });
}
1;
__END__

##</code><code>##

#!perl -w
use warnings; use strict;
my(@a, @b);
@a = (
1, 2,
do{ use Filter::Include "./second"; },
7, 8);
print "a(@a) b(@b)\n";
__END__

##</code><code>##

3, 4); @b = (5, 6,