Maybe the file is big. Slurping the whole file into memory can cause the process to go swap-bound.

Try copying it a chunk at a time. (Use File::Copy or DIY).

{
  local $/ = \1024;
  local *_;
  while (<READ>) { print };
}
[download]