$to_print=qx(wc ../*.pl -l | head -n -1 | sort -n | head -n 1);
@splitted = split " ",$to_print;
qx(chmod a-x $splitted[1]);