in reply to Warning will not supresss

you can try this to remove the error.
$SIG{__WARN__} = sub { my $wn = shift; return if $wn =~ /Use of uninitialized value/i; #Most annoying warn $wn; };

Good Luck^^

*Edited if you still have problems try this.
BEGIN { $SIG{__WARN__} = sub { my $wn = shift; return if $wn =~ /Use of uninitialized value/i; #Most annoying warn $wn; }; }