There was another problem with the original code:

@files = qx(ls *.pl);
[download]

won't trim the newlines off the lines returned by ls.

Cheers; nat