pl=$0
filename=$1
pl=${pl%.*}
pl=${pl}.pl
perl ${pl} $filename