sysopen(FILE, $filename, 0);
while (sysread(FILE, $buffer, 10240)) {
  print $buffer;
}
close(FILE);