if ($resp->is_success) {
    open (DOWNLOAD, "> $Filename") || warn;
    binmode(DOWNLOAD);
    print DOWNLOAD $resp->content;
    close (DOWNLOAD) || warn;
} ...