$response = $ua->get($url);
if (not ($response->is_success))
    { die "Can't retrieve $url\n"; }
if ($response->filename !~ /$regex/)
    { die "Can't get name of file from header.\n"; }
else
    {
    open ( FILE, '>', $response->filename )
        or die "Can't open file for writing.\n";
    print FILE $response->content;
    close FILE
     or die "Can't close file.\n";
    print "Saved data to $response->filename\n\n";
    }