<?php

if (!defined('ACCESSCONST')) {
    die("Access denied !");
}

  function perl_version() {

     $getverinit = exec("dpkg -s perl | grep Version");
     $getversec = explode(":", $getverinit);
     $getvertert = explode("-", $getversec[1]);
     $finalversion = $getvertert[0];

     return $finalversion;
  }

?>
