It is probably too big . You could try pre-sizing scalar

my $size = -s FILE;
my $giant = ' ' x $size;
print "Read ", read(FILE,$giant,$size,0)," of $size bytes";
[download]

but if its really big it won't make any difference.