use strict;
use warnings;

my $PATH = '.';
my $CONTENT;

explore($PATH);

sub explore
{
  my $PATH = shift;
  my $FILE;
  my $SUB;

  opendir(my $DIR, $PATH) or return;
  while (my $SUB = readdir $DIR)
  {
    next if $SUB eq '.' or $SUB eq '..';
    $SUB = "$PATH/$SUB";

    # If it's a folder, explore it.
    # If it's a file, print it.

    if (-d $SUB)
    {
      explore($SUB);
      next;
    }
    if (-f $SUB)
    {
      open($FILE, '<:raw', $SUB) or next;
      read($FILE, $CONTENT, 2000) or next;
      close($FILE);
      print $CONTENT;
      $CONTENT = '';  # don't need this data anymore
    }
  }
  close $DIR;
}