Select Code to Download

  print `dir /b $source\\*.txt > $source\\dir_list.lst`; #$source is d
+eclared just before the sub is called

  @list = glob "$source\\*.txt";