examples/advanced/avoid_warnings.pl
#!/usr/bin/perl 
use strict;
use warnings;

my $total;

add();

print "$total\n";


sub add {
    if (not defined $total) {
        $total = 0;
    }
    $total = $total + rand();
}

A lot of work. Cannot be done easily to an existing application.