The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<html>
<body>
<script language="epl">
[-
  $title = 'Add Recipients';

  my $files = $fdat{fileSelector};
  if (!defined($files)) {
    $files = 1;
    $fdat{fileSelector} = $files;
  }

  $maxrow = 10;
  if ($files eq 'manual' || $files == 1) {
    $table[0][0] = '';
  }
  else {
    my $f = 1;
    my $rows = $files / 2;
    for (my $r = 0; $r < $rows; $r++) {
      $table[$r][0] = $f++;
      $table[$r][1] = $f++;
    }
  }

  $sourceOption[0] = 'Make Selection';
  $sourceOption[1] = 'Acme Vending';
  $sourceOption[2] = 'ABC Rental';

-]
</script>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td class="ltAlign">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="80%" class="breadCrumbs">Audience &gt; Multiple Upload</td>
          <td width="20%" class="rcJustify">
            <form name="fileSelectorForm" method="post">
              <select name="fileSelector" onChange="fileSelectorForm.submit()" class="controlText">
                <option value="manual">Manual Upload</option>
                <option value="1">Single File Upload</option>
                <option value="2">Multiple Upload: 2 Files</option>
                <option value="4">Multiple Upload: 4 Files</option>
                <option value="6">Multiple Upload: 6 Files</option>
                <option value="8">Multiple Upload: 8 Files</option>
                <option value="10">Multiple Upload: 10 Files</option>
              </select>
            </form>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td class="textRowSpacer15">&nbsp;</td>
  </tr>
  <tr>
    <td width="100%" class="thdPage">Upload Audience</td>
  </tr>
  <tr>
    <td width="100%">
      <table width="100%" border="1" cellspacing="2" cellpadding="0">
        <tr>
          <td class="cellBorder">
            [- $file = $table[$r=$row][$c=$col] -]
            [- use Data::Dumper ; -][+ Dumper (@table, $r, $c) +]
            <table width="100%" border="0" cellspacing="2" cellpadding="0">
              <tr>
                <td class="ltAlign">
                  <table width="100%" border="0" cellspacing="2" cellpadding="0" name="filesourcetable">
                    <tr>
                      <td class="thdPage2ndLevel">Upload File [+ $file +]</td>
                    </tr>
                    <tr>
                      <td width="42%" class="text">&nbsp;</td>
                    </tr>
                    <tr>
                      <td width="42%" class="text">Browse for File to Upload</td>
                    </tr>
                    <tr>
                      <td>
                        <input type="File" name="add_file_[+ $file +]" size="35" value="" class="text">
                      </td>
                    </tr>
                    <tr>
                      <td width="42%" class="text">&nbsp;</td>
                    </tr>
                    <tr>
                      <td width="42%" class="text">Website</td>
                    </tr>
                    <tr>
                      <td width="42%" class="text">
                        <select name="source" class="text">
                          <option>Make Selection</option>
                        </select>
<!--
                        <select name="source" class="text">
                          <option>[+ $sourceOption[$row] +]</option>
                        </select>
-->
                      </td>
                    </tr>
                    <tr>
                      <td width="42%" class="text">&nbsp;</td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>