#!/usr/bin/perl
use strict;
use warnings;

my $dir = '/home/oracle/test/Oracle/oradata';
my @files = <$dir>;
my $numfiles = scalar @files;
print "Files in $dir: $numfiles\n";