Select Code to Download

#!/Perl/bin/perl

...
opendir(DIR,$dir);
print "found" if grep /$file/,readdir(DIR) ;
closedir(DIR);