Add method to just return the variable
Remove unused variables
Fix test code
Fix warning "Useless use of sprintf in void context" in Perl 5.18
Fix warning: Useless use of a constant ("userunknown") in void context in Perl 5.18
Fix code for warning: Useless use of a constant ("->description") in void context in Perl 5.18
Fix code for warning: Use of uninitialized value $text in numeric eq (==) in Perl 5.18
Fix code for warning: Useless use of private variable in void context in Perl 5.18