my $data = ""; while (read (FH,$data, $buffer) ){ $data .= $data; }