Select Code to Download

# test code
my $a = 
...
}->();
END { print "eval over\n" }';
eval $a;

# module: filtertest
package filtertest;
...
    )
}
1;

use filtertest; 
print "Hello word\n";