Select Code to Download

use strict;
use warnings;
...
$test = undef;
$test += $tainted;
print "Test 2: $test\n";

perl -T test.pl 1

%perl -T test.pl 1
Test 1: 1
Use of uninitialized value in addition (+) at test.pl line 12.
Test 2: 1