use strict;
use warnings;

my $tainted = shift;
my $test;

$test = undef;
$test += $tainted;
print "Test 1: $test\n";

$test = undef;
$test += $tainted;
print "Test 2: $test\n";