Select Code to Download

#!/usr/bin/perl
use strict;
...
print "Directory: $File::Find::name\n" if -d;
print "File: $File::Find::name\n" unless -d;
}