#!/bin/bash
for i in $( ls -l *.pm|awk '{print $8}' ); do    
    j=$( echo $i |awk '{sub(/.pm/,".new");print}')
    echo "Running perltidy on $i"
    perltidy "$i" > "$j"
    if [ $? -eq 0 ] ; then
        z=$(echo $i| awk '{sub(/.new/,"pm");print}')
        mv $j $z
    else
        echo "Problem running perltidy on $i"
    fi
done