Hi,
I'm not really sure (and then it may not even belong here), but I think in perl-GTK you can achieve something like this with

Gtk::Gdk->input_add( $source, $condition, \&function, @data );???
[download]

Maybe some perl-gtk guru could verify this?

Regards...

Stefan