sub GetDocu()
{
    my $project=shift;
    my $BasePrj=shift; ....