sub parse_header {
   my ($header) = @_;
   do this and thia
}