in reply to connect to AndroidDebugBrigde (adb) using PERL
Besides what kennethk suggested, you might want to try Expect