#!/usr/bin/perl -w
use strict;
use Gtk2 -init;
use Glib  qw(TRUE FALSE);


Glib::IO->add_watch (fileno 'STDIN', [qw/in/], \&watch_callback, 'STDIN');	

Gtk2->main;

sub watch_callback {

	my ($fd, $condition, $fh) = @_;

        if(sysread(STDIN, my $buf, 1024)){ print "$buf\n" }
      
	#always return TRUE to continue the callback
	return TRUE;
}