There is something called a "War Dialer". Most of you have probably heard of this type or program. There is probably even a few written in perl. Some will tell you if a modem, fax, human, or answering machine picked up. If you are motivated enough, just search for one. They are available.