foreach my $name (readdir DIR) {
        next if /^\./;

##</code><code>##

sub process_file {
    my $file = @_;


##</code><code>##

open (FILE, $file) or die "Could not open file: $!";