Select Code to Download

use IO::Socket;
use URI;
...
print SAVE while (<$socket>);
$socket->close;
close SAVE;