my $doc = shift;