sub execviamod
    {
    print OUT "begin execviamod\n" ;
    Embperl::Execute ({inputfile => 'plain.htm', input_escmode => 7, escmode => 7}) ;
    print OUT "middle execviamod\n" ;
     
    Embperl::Req::ExecuteComponent ({inputfile => 'plain.htm', input_escmode => 7, escmode => 7}) ;
    print OUT "end execviamod\n" ;
    }
sub execviamod2
    {
    Embperl::Execute ({inputfile => 'div.htm', input_escmode => 7, escmode => 7}) ;
    Embperl::Req::ExecuteComponent ({inputfile => 'div.htm', input_escmode => 7, escmode => 7}) ;
    }
1 ;