push (@request_unsorted,["GET:","$get"]);
push (@request_unsorted,["POST:","$post"]);
push (@request_unsorted,["HEAD:","$head"]);
push (@request_unsorted,["OPTIONS:","$option"]);
my @request_sorted = sort{$a->[0] cmp $b->[0]}@request_unsorted;
print FHR join("\n",@request_sorted,"\n");