# from https://www.reddit.com/r/perl/comments/1256khf/comment/je3wh0m/?utm_source=share&utm_medium=web3x&utm_name=web3xcss&utm_term=1&utm_content=share_button
local $SIG{__WARN__} = sub {
    return if $_[0] =~ /IO::Pty blah blah/;
    print STDERR "$_\n";
};