Select Code to Download

'delete $INC{"Foo"}; use Foo;'

package Filter::Test;
use Filter::Simple;
...
;

print 'Filter::Test loaded';

#! perl -slw
use strict;
...
eval "print 'Just another perl hacker'";

#require 'My/filtertest.pm';

package My::filtertest;

...
eval "print 'Just another perl hacker';";

1;

P:\test>296091
Filter::Test loaded
...
        (Do you need to predeclare PRINT?)

P:\test>