# This Driver opens up a file containing # command syntax for each page......... # # It feeds these commands into the revised # version of make1 called "driverMake1.pm" use lib "."; use driverMake1; $scriptFile = shift; open( FILE, $scriptFile ); while( $line = ){ chomp( $line ); my( $file, $site, $sect, $chpt, $page ) = split " ", $line; driverMake1::make1( $file, $site, $sect, $chpt, $page ); }