if (-d $filename) {
	print "$filename is a directory.\n";
} else {
	print "$filename is a file.  Skipping...\n";
}