Script That Connects to Telnet, Takes Data From Stream and dumps to file

I am looking for someone to connect to a telnet service using a perl script and dump data streamed on the telnet service to a local file on a linux server. The service your connecting to just requires a simple login and then it streams data. Each data set begins with Ctrl+A and ends with Ctrl+C... every one of those data sets needs to be dumped to a local file There should be also an error handling that can tell if for whatever reason your program dies, so that it can be restarted automatically.