fix perl script

I have a script that does the following look at table1 find blank field1 cross reference field 2 with table2 issue telnet command using params from table 1 and 2 wait for result mark table 3 with some data exit for some reason this script stopped working Need someone to fix it or write a new one. I frequently need perl script, if your price and work is good you will get more