$SIG{__WARN__} = sub {
    $msg = undef;
    foreach (@_) { 
        $msg =~ s/ at.*$// unless $msg =~ /(uninit|deprec)/; 
    } 
    print STDERR 'MyApp...' . $msg;
}