Select Code to Download

[root@devel3 root]# TAINTED=crlf;export TAINTED
[root@devel3 root]# perl5.8.3 -e 'print $ENV{TAINTED},$/;'
...
[root@devel3 root]# perl5.8.3 -e 'use PerlIO $ENV{TAINTED};'
Can't locate PerlIO/crlf.pm in @INC (@INC contains: /usr/local/lib/per
+l5/5.8.3/i686-linux-thread-multi /usr/local/lib/perl5/5.8.3 /usr/loca
+l/lib/perl5/site_perl/5.8.3/i686-linux-thread-multi /usr/local/lib/pe
+rl5/site_perl/5.8.3 /usr/local/lib/perl5/site_perl .) at (eval 1) lin
+e 3.
[root@devel3 root]#

corak "No way hosay...." unless $layer =~ m/^([\w:]+)$/;
$layer = $1;
eval "....