my $pathfile =$dir . '/' . $file;
warn "Found a perl script named $pathfile\n" if $DEBUG;
tie @filearray, 'Tie::File', $pathfile or die $!;
my $pathfile =$dir . '/' . $file;
warn "Found a perl script named $pathfile\n" if $DEBUG;
tie @filearray, 'Tie::File', $pathfile or die $!;