If you want to download a large file (or any file, really), use mirror in preference to get.

Note also that open my $fp,">",$file || die "Error saving book $!\n"; isn't going to report the errors in the way that you intend because the comma has a lower priority than the || operator. Use or for control flow instead. Of course if you used mirror then you don't need to worry about the mechanics of writing to the file in the first place :-)