Please always include the actual error message with this type of question.

One problem would appear to be a missing $ in $oGdBar->{text}. I think that should be $oGdBar->{$text}.

Also, adding use strict; and use warnings; to the top of your code will highlight many problems.