Select Code to Download

$response = $ua->get($url);
if (not ($response->is_success))
...
     or die "Can't close file.\n";
    print "Saved data to $response->filename\n\n";
    }

Saved data to HTTP::Response=HASH(0x29e79e0)->filename