if($firstline =~ m!(GET|POST|HEAD) http://([^/:]+):?(\d*)!){
        $method=$1;
        $host=$2;
        $port=$3
        }
    elsif($firstline=~m!(CONNECT) ([^/:]+):?(\d*)!){
        $method=$1;
        $host=$2;
        $port=$3
        }
    $hash->{method}=$method;
...
    if ($method=~/^POST$/is && $len) {