Select Code to Download

#ObjectType1
Param1: 8
...

#ObjectType2
...

ObjectType1
{
...
{
   ...
}

use strict ;
use warnings ;
...
        print $fho $line . "\n" ;
    }
}