Select Code to Download

my $cname = "$File::Find::name"; #prints location of file
my @chunks = split '/', $cname;
$country = $chunks[4];