Select Code to Download

opendir(DIR, "/tmp") || die "can't opendir $!";
while (my $file = readdir(DIR)) {
...
  print $file."\n";
}
closedir DIR;

my $fname = "/tmp/test.txt"; 
print $fname if(-e $fname);