while($data = <$filehandle>) {
print DAT $data;
}