I dont know much in perl ,just got some work todo

I dont know much in perl ,just got some work i'm trying to get someone to do for me.

Fixed it for you