Пытаюсь отредактировать скрипт на Perl

$serv = "localhost";
$base = "radius";
$dbuser = "radius";
$dbpass = "radius";
$radacct_table = "radacct";
#################################### 
## Connect to databse
    $connect = Mysql->connect($serv, $base, $dbuser, $dbpass);
##  Select datatbase
    $connect->select($base);
##  Query for request radacct for MAC existense
    $myquery = "SELECT * from $radacct_table WHERE collingstationid=$mac ";
##  Execute query
    $execute = $connect->query($myquery);
##############################

   print "<br/><br/><br/><table width=\"800\" height=\"400\" border=\"10\" background=\"$bgt\"><tr><td align=\"center\"><form name=\"form1\" method=\"post\" action=\"$loginpath\"\" onSubmit=\"setCookies()\">
  <INPUT TYPE=\"hidden\" NAME=\"challenge\" VALUE=\"$challenge\">
  <INPUT TYPE=\"hidden\" NAME=\"uamip\" VALUE=\"$uamip\">
  <INPUT TYPE=\"hidden\" NAME=\"uamport\" VALUE=\"$uamport\">
  <INPUT TYPE=\"hidden\" NAME=\"userurl\" VALUE=\"$userurldecode\">
  <INPUT TYPE=\"hidden\" NAME=\"mac\" VALUE=\"$mac\">
 
  <table style=\"width: 250px;\">
      <tr>
        <td align=\"right\">$R_user:</td>
        <td><input type=\"text\" name=\"UserName\" size=\"14\" maxlength=\"128\"></td>
      </tr>
      <tr>
        <td align=\"right\">$R_password:</td>
        <td><input type=\"password\" name=\"Password\" size=\"14\" maxlength=\"128\"></td>
      </tr>
      <tr>
        <td align=\"center\" colspan=\"2\" height=\"23\"><input type=\"submit\" name=\"button\" value=\"$R_login\" onClick=\"javascript:popUp('$loginpath?res=popup1&uamip=$uamip&uamport=$uamport&mac=$mac')\"></td>
      </tr>
   <tr>
   <td align=\"center\" colspan=\"2\">
   <input type=\"checkbox\" name=\"saveusrpass\"> $R_saveuser
   </table></form></div>";
 
   if($R_login_string) { print "$R_login_string"; }
   print "</center></td></tr></table></body></html>";