Select Code to Download

#!/usr/bin/perl -w 
use strict;
my $dir = 'C:\Users\Zandre Botha\Desktop\Text Files';
...
}

closedir (DIR);