PHP Script in Perl Script ändern

<?
$vverz="Party123";  
$veranstalltung ="Party123 vom 1.1.1900";  

if(isset($_POST["zip"]))  
if($_POST["zip"]=="1")  
{
$zufall=rand(1,100);

include_once("../zip/createZip.inc.php");  
$createZip = new createZip;
$createZip -> addDirectory($veranstalltung."/");  



$ordner=opendir("../".$vverz."/gross");  

while($bild = readdir($ordner))
{
if(is_file("../".$vverz."/gross/".$bild)&&preg_match('/.*\.jpg?g/i', $bild))  
{
foreach($_POST['bildaus'] as $value)  
{
if($bild==$value){
$fileContents = file_get_contents("../".$vverz."/gross/".$bild);  
$createZip -> addFile($fileContents, $veranstalltung."/".$bild);  
}
}

}
}

$fileName= $veranstalltung."-".$zufall.".zip";  
$fd = fopen($fileName, "wb");  
$out = fwrite ($fd, $createZip -> getZippedfile());
fclose($fd);

echo "<h1>Zip Datei Downloaden</h1>";  
echo"<a href='http://www.mydomain.de/".$vverz."/$fileName'>hier downloaden</a><br><br><input type='button' onclick='javascript:history.back();' value='zurück'>";  
@$creatZip -> forceDownload($fileName);







@unlink($fileName);

closedir($ordner);

}


?>

...

<form method="post" action="<?php echo $_SERVER['PHP_SELF']; ?>" name="auswahl" enctype="multipart/form-data">  
<!--//////////////////////////////////////////////////////////////////////////////////////////////////////////-->

<?
echo"<h2>".$veranstalltung."</h2>";  
$i=1;
$c=1;
$z=0;
$verzeichnis=opendir("../".$vverz);  
while($file= readdir($verzeichnis))
{
if(is_file($uverz."/".$file)&&preg_match('/.*\.jpg?g/i', $file))  
{

$array_liste= "<input type=checkbox name='bildaus' value='".$file."'><a title='".$veranstalltung."' href='".$file."' id='http://www.mydomain.de/".$vverz."/gross/".$file."' rel='gb_imageset[party]'><img border='0' src='".$file."' width='100px' alt='".$file."'></a></input> ";  

$c++;
$z++;


}
}

closedir($verzeichnis);

sort($array_liste);

for($co=0;$co<$z;$co++){

echo $array_liste[$co];

if($i==5)
{
$i=0;
echo"<br>";  
}


$i++;

}



?>
<!--//////////////////////////////////////////////////////////////////////////////////////////////////////////-->
<br><br><input type="hidden" name="zip" value="1"><input type="submit" value="Auswahl Downloaden">  
</form>