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

##</code><code>##

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