binmode FILEHANDLE;
print $data while(read(FILEHANDLE, $data, 1024));