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