#$dirname = "/logs";
#opendir DIR, $dirname or die "Couldn't open dir '$dirname': $!";
#my @files = readdir(DIR);
#closedir DIR;

$file = "/logs/oracle.log";
#foreach my $file (@files){
#print "$file\n";

open( my $fh, '<', $file ) or die "Can't open $file: $!";
    while ( my $line = <$fh> ) {
            print $line;
        }
#    }
    close $fh;