my @headers = glob '*.h';

print "@headers\n";

##</code><code>##

use File::Spec;

my @headers = glob File::Spec->catfile($dir, '*.h');

print "@headers\n";