my $data='';
while (<$file>) {
     $data .= $_;
    }