fixing error code

fixing error code - I am a dumb ass and shifted things the wrong way.   It's been a while in since I been banging on perl.