Select Code to Download

opendir DIR, $dir or die "cannot open dir $dir: $!"; my @file= readdir
+ DIR; 
closedir DIR;