Would these do what you want? You're not mentioning the possibility of extraneous plc or pld files, which would throw off these methods.

1 while (@_ = <*.plc>);
[download]

1 while ((@_ = <*.pld>) < $count);
[download]

(Just calling glob() or the <glob> operator in scalar context will pick a filename for you, not return the count. Hence the assignments.)

--
[ e d @ h a l l e y . c c ]