find(\&getpm, "$fpath");
sub getpm
{
	return unless /readme\.txt/;
	print $_ . "\n";
}