#!/usr/bin/perl -w

use strict;
use File::Find;

my $username = 'testuser';
sub htaccess_test {
	if ($_ eq '.htaccess') {
		print "$_\n";
        }
}
find(\&htaccess_test, "/home/$username/public_html/") or print "$!\n";