http://api.metacpan.org/source/TOKUHIROM/App-httpstatus-v1.0.0/httpstatus#!/usr/bin/perl use strict; use warnings; # taken from https://metacpan.org/source/GAAS/HTTP-Message-6.06/lib/HTTP/Status.pm my %StatusCode = ( 100 => 'Continue', 101 => 'Switching Protocols', 102 => 'Processing', # RFC 2518 (WebDAV) 200 => 'OK', 201 => 'Created', 202 => 'Accepted', 203 => 'Non-Authoritative Information', 204 => 'No Content', 205 => 'Reset Content', 206 => 'Partial Content', 207 =
