Select Code to Download

# open current directory for reading
opendir my $dh, '.' or die;
...
  # your code here
}
closedir $dh;