$dirname = "/home/oracle/test/Oracle/oradata";

opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
while( ($filename = readdir(DIR))){
     print("$filename\n");
        $flag=1;
}
closedir(DIR);