Help for this page

Select Code to Download

Select or download this

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