Select Code to Download

 #!/usr/bin/perl -w
use strict;
use diagnostics;
...
  bless(do{\(my $o = 257)}, "Gtk2::Gdk::ModifierType"),
]
[["shift-mask", "button1-mask"]]

my $state = Gtk2->get_current_event->get_state ;
exit warn "How dare you shift" if  $state * "shift-mask";