I was looking at the same area. But was thinking something more like this, since these are binary (image) files:

my $data;
while (read($fBuffer[5], $data, 1024))
{
    print OUTFILE $data;
}
[download]