opendir(DIR, '/home/a') or die "couldn't opendir /home/a: $!";
while (local $_ = readdir(DIR)) {
        next unless $_ =~ /\.txt$/;
        print "$_\n";
}
closedir(DIR) or die "couldn't close /home/a: $!";