Переписать скрипт c php на perl

ALex_hha
Дата: 03.11.2006 16:07:19
Народ есть такой скрипт на php

<?php
 @unlink ("/tmp/".$argv[1]);
 $f = fopen ("/tmp/".$argv[1], "w");
 $ds = ldap_connect ("192.168.0.2");
 if ($ds)
 {
   $r = @ldap_bind ($ds, "ITL\\".$argv[1], $argv[2]);
   if ($r)
   {
     fputs ($f, "0");
     fclose ($f);
     exit;
   }
 }
 fputs ($f, "1");
 fclose ($f);
?>

может кто написать аналог на перле.