my ($dir, $pattern) = @_;