$response = $ua->request($r);
if (MAGIC) {
  print "timed out\n";
} elsif ($response->is_success) {
  print "yippeeeeeeeee!\n";
}