open(OUTPUT, '>output.file');
while($tel->recv($buffer, 512)) { print OUTPUT $buffer; }
close OUTPUT;