use strict;
use warnings;
use 5.010;

my $startDir = "/temp/";
opendir my ($dir), $startDir or die "cannot open '$startDir'\n";

while (defined (my $entry = readdir $dir)) {
    my $path = "$dir/$entry";

    next if !-f $path;

    open my $inFile, '<', $path, or die "Can't open '$path': $!\n";
    print <$inFile>;
}