use Net::XMPP::Client::GTalk    ;
    use Data::Dump qw( dump )       ;

    my $username ; # = '' ; Set GTalk username here [ WITHOUT '@gmail.com' ]. 
    my $password ; # = '' ; Set GTalk password here.


    unless( defined( $username ) and defined( $password ) ) { 
	die( "SET YOUR GTALK USERNAME AND PASSWORD ABOVE!\n" ) ;
    }

    my $ob = new Net::XMPP::Client::GTalk( 
	USERNAME   =>  $username         ,
	PASSWORD   =>  $password         ,
	);


    my $require_run = 1 ;
    my $iteration   = 1 ;
    while( $require_run ) { 

	my $message = $ob->wait_for_message( 60 ) ;

	unless( $message ) { 
	    print "GOT NO MESSAGE - waiting longer\n" ;
	}

	if( $message->{ error } ) { 
	    print "ERROR \n" ;
	    next             ;
	} else { 
	    dump( $message ) ;
	}

	if( $message->{ message } eq 'exit' ) { 
	    print "Asked to exit by " . $message->{ from } . "\n" ;
	    $message->{ message } = 'Exiting ... ' ;
	    $require_run = 0 ;
	}

	$ob->send_message( $message->{ from }, $message->{ message } ) ;

	if( int( $iteration / 3 ) == ( $iteration / 3 ) ) { 
	    my @online_buddies = @{ $ob->get_online_buddies() } ;
	    dump( \@online_buddies ) ;
	}

	$iteration++ ;

    }


    exit() ;