$SIG{__WARN__}=sub {
    warn substr($_[0],0,100)
};
$SIG{__DIE__}=sub {
    die substr($_[0],0,100) # unless in eval ...
};