my $output = IO::File->new_tmpfile();
while($tel->recv($buffer, 512)) { $output->print($buffer); }