my @row;
      my $cnt = -1;
      while(@row = $sth->fetchrow_array)
      {
          $cnt++;
          print "$row[$cnt] test<br>";
      }

##</code><code>##

Global symbol "@row" requires explicit package name at admin.pl line 165.
Global symbol "$cnt" requires explicit package name at admin.pl line 165.
Global symbol "@row" requires explicit package name at admin.pl line 165.
Global symbol "$cnt" requires explicit package name at admin.pl line 165.
Global symbol "@row" requires explicit package name at admin.pl line 165.
Global symbol "$cnt" requires explicit package name at admin.pl line 165.

##</code><code>##

   if ($action =~ m/upload/i)
   {

      print <<"      EOF";
      <table width="400" border="1" cellspacing="0" bordercolor="#0000FF">
        <form action="" method="post" enctype="multipart/form-data">
          <tr>
             <td width="456" height="53"><table width="447" cellspacing="0">
          <tr bgcolor="#FFCCFF">
             <td colspan="2"><div align="center">Upload file to user </div></td>
          </tr>
          <tr>
             <td width="234">File:</td>
             <td width="206"><input name="upload" type="file" id="upload"></td>
          </tr>
          <tr>
             <td>User:</td>
             <td><select name="select" MULTIPLE size="5">
      END

      my $data = qq(SELECT username FROM login);

      my $sth = $dbh->prepare($data);
      $sth->execute() or die $sth->errstr;

      my @row;
      my $cnt = -1;
      while(@row = $sth->fetchrow_array)
      {
          $cnt++;
          print "$row[$cnt] test<br>";
      }

      print <<"      EOF";
        </select></td>

      </tr>
      <tr>
        <td colspan="2"><div align="center">
          <input name="UploadFile" type="submit" id="UploadFile" value="Upload">
        </div></td>
        </tr>
    </table></table>
      EOF

   }