Yo in perl!!

Some Fixed .