perl scripts used in daily work