open my $file, '<', $File::Find::name or die "Error openning file: $!\n";