You could use

{
    local $SIG{__WARN__} = sub { ... };
    eval { ... };
}
[download]

to trap the warning and do something special with it. However, I can't see that helping with identifying uninitialised values.

There's example code in perlvar: %SIG.