package Taint;

require 5.8.0;

use Carp;

croak( 'Code execution called without -T (taint) switch' ) unless ${^TAINT};

1;

__END__


##</code><code>##

kathmandu:/home/development/perl-5.8.0# ./bin/perl5.8.0 -e 'use Taint'
Code execution called without -T (taint) switch at -e line 1
Compilation failed in require at -e line 1.
BEGIN failed--compilation aborted at -e line 1.
kathmandu:/home/development/perl-5.8.0# ./bin/perl5.8.0 -T -e 'use Taint'
kathmandu:/home/development/perl-5.8.0#