use strict;
use warnings;
use Gtk2;
use POSIX;

POSIX::dup2(POSIX::open('/dev/null'), 2); # stderr to /dev/null

my $label = Gtk2::Label->new;
while (1) {
  $label->signal_connect ('nosuchsignal', \&noop);
}
sub noop {}