I think you just need to remove that $telnet->getline and that $telnet->print("exit") and try something like this instead:

my @response = $telnet->cmd("exit");
print $_ while @response;
[download]

The print() and waitfor() functions work differently than the automatic prompt detector (Prompt=>regular) and the cmd() function.