Select Code to Download

while(@fnames) {
  my $f = shift @fnames;
...

  for my $f2 (@fnames) {
    next if(-l $f2);

  @fnames = grep { ! -l $_ } @fnames;