open (FILEHANDLE,"file.txt") ;
my $data ;
1 while( read(FILEHANDLE, $data , 1024*8 , length($data) ) ) ;
close (FILEHANDLE) ;