while (read FILE, my $data, 1024) { print $data; }