use strict;
use warnings;
use Cwd;

my $startdirectory = cwd;
print "Starting directory:  $startdirectory\n";
use File::Find;
  find ( \&inFiles, ('.') );
exit;

sub inFiles {
chomp;
my $name = $_;

my $directory = cwd;


if( $name =~ /.dat/) {
  print "dir = $directory\tname = $name\n";

  
  open INFILE,'<$name'  || warn ("Cannot open input file $name\n");
  my @infilecontent = <INFILE>;
  print @infilecontent;

  my $localfile = "$directory\$name";  #win32 
  open INFILE2,'<$localfile'  || warn ("Cannot open input file $localfile\n");
  @infilecontent = <INFILE2>;
  print @infilecontent;
 } 

 } #inFiles