my $DRIVER_LINE["type"];

my $DRIVER_LINE["issueyear"];
my $DRIVER_LINE["issuenumber"];
my $DRIVER_LINE["issuedate"];
my $DRIVER_LINE["issuepublisedflag"];

my $DRIVER_LINE["categorytype"];

my $DRIVER_LINE["htmltitle"];
my $DRIVER_LINE["author"];
my $DRIVER_LINE["directory"];
my $DRIVER_LINE["textitle"];
my $DRIVER_LINE["sorttitle"];
my $DRIVER_LINE["subtitles"];

open file(FileHandle,$inputfile);
L1:
while (next_driver_line(FileHandle) {

    if ($DRIVER_LINE["type"] eq "issue") {
         if ($DRIVER_LINE eq "published") {$mainpaperfile = "/index.html";};
         $directory ="";
         if ($locationflag eq "forhomepage")
              {$directory = $DRIVER_LINE["issueyear"].'-'.$DRIVER-LINE["issuenumber"].'/'};
         next L1;
    };

    if ($DRIVER_LINE["type"] eq "category") {next L1;};

    if ($DRIVER_LINE["type"] eq "piece") {
         ...
         next;
         };
}; #end while
close(FileHandle);

sub process_driver_file {
   open file