"I need this code to integrate with my hardware."

Then do the debugging GrandFather suggested as a start.

"Can you provide me the modified code ?"

That is definitely not how this site works. We don't do your work for you. You need to show your own effort. We are but humble volunteers here; we're not being paid to write code for people. We offer help to those who help themselves. With that said, do the testing that was asked of you as a start as I already said. After that, and we know the results, we can help further.

If we simply provide you modified code you are not learning Perl, you are simply learning to be a (falsely) lazy free loader. You will get your job done much faster by reading the documentation many people have suggested you read and doing the tasks, such as writing good questions and providing clean runable sample code (see my example above as an example). You are wasting both your time and our time by not doing some work for yourself. Show some effort as suggested by many people and we will bend over backwards to help you. Show no effort and both you and we will continue to be frustrated and no progress will be made.