My answer doesn't have much to do with perl, but there is a tool that does well with this sort of thing.

Kermit is a general purpose modem/file transfer/communications tool.

I noticed a kermit script called callstats that you could cut and paste from.