I see what the problem is now after posting your code. LWP returns a status of 500 if a timeout occurs, not the 408 you are looking for.

To catch your errors, you could try

if ($res->success) {
    print "PASSED!\n";
} else {
    print "An error occured:  " . $res->status_line . "\n";
}
[download]