Select Code to Download

my $dirname = "/home/oracle/test/Oracle/oradata"; 
opendir (my $DIR, $dirname ); 
my $num_of_files = () = readdir $DIR;
print "Found ", ($num_of_files - 2), " files in the dir $dirname\n";
closedir $DIR;