Select Code to Download

#!/usr/bin/perl
use strict;
...
$x = $x+1;

print $x;

Use of uninitialized value in addition (+) at tmp.pl line 6.

#!/usr/bin/perl
use strict;
...
$x = $x ? $x+1 : 1;

print $x;