sub read_file {
  my $name = shift;
  open my $fh,"<",$name or die "can't open $name; $!";
  while (<$fh>) {
     chomp;
     read_file($_) if -f $_;
  }
  close $fh;
}