foreach my $key ( keys( %$xmlHash ) )
    {
        print "key $key";
        eval{
        if( $key =~ /cafe/ )#eq 'cafe_psfsn' )
        {
            $self->{runLevel} = 1 if( $self->{runLevel} < 1 );
            return $self->{cmdGen}->cafeMesg();
        } };
        print "error $!" if $!;
        if( $key eq 'version' && $self->{runLevel} >= 1 ) {
 ...................