sub read_dir {
    my $dir = shift;

    if ( opendir( DIR, $dir ) ) {