while($read = <BLA>) {
print $read;
}