# ...
$ua->timeout(10);
my $response = $ua->request($r);

if ($response->is_success) {
    print "whee.\n";
}
elsif ($response->status_line =~ /timeout/) {
    die "Timed out\n";
}
else {
    die $response->status_line;
}