#!/usr/bin/perl
use strict;
use warnings;
use Scalar::Util 1.10 'looks_like_number';

my $total = 4;
my $increment;

$total += looks_like_number($increment) ? $increment : 0
__END__
Use of uninitialized value in addition (+) at blah.pl line 9.