13-taint.t
[
plain text
]
#!/usr/bin/perl -wT
use
strict;
use
lib
'./t'
;
eval
{
"$0$^X"
&&
kill
0; 1 };
do
'01-validate.t'
;