Select Code to Download

use strict;
use warnings;
...
else {
    die $response->status_line;
}

Can't connect to myhost.local:443\n\n
500 Can't connect to myhost.local:443 at foo.pl line 15.