/home/user/log/access.log

#!/usr/bin/perl

# باث ملف الاكسس
$file = "/home/user/log/access.log";

 # طلب فتح الملف بالوضعية الافتراضية بوضع علامة اصغر من
 # وهذا حتى لا يأثر على عمله لانه راح يسجل أي بيانات جديدة تتم له
 open (DATA, "<$file");
 # طلب تصريح لفتحه لاحظ اني تصريحه 2 يعني للقراءه والكتابة
 # أدري ان التصريح لازم يكون 1 للقراءه فقط لكن ما تفرق
 flock(DATA, '2');
 # تعريف الميمي للصفحة انا اخترة انه يكون نص عادي
 print "Content-type: text/plain\n\n";
  
    while (<DATA>) { # نعمل لووب للملف لعرض محتوياته سطر سطر
        chomp; # حذف علامة السطر الجديد لتميز عدد السطور لان العرض على سطر سطر
        print $_ " \n"; # طباعة السطر من الملف
    } # غلق بلوك اللوب او التكرار

  close (DATA); # غلق الملف بعد ما انتهاء عمله

# النهاية