use strict;
use warnings;
use 5.010;

my $total;

my $result = $total + 1;
say $result;

--output:--
Use of uninitialized value $total in addition (+) at 1perl.pl line 9.
1