Select Code to Download

opendir (D,".")|| die "nope sorry";
for (readdir(D)){
++$count if -f;
}
print $count;