my $family;

my ($family, $model);

	my @familyline = grep(/^cpu family/, @cpuinfo);
	$familyline[0] =~ s/^cpu[ ]family[ \t]*[:][ ]*//;
	$family = $familyline[0];

	my @line = grep(/^cpu family/, @cpuinfo);
	$line[0] =~ /([0-9]*)$/;
	$family = $1;

	@line = grep(/^model/, @cpuinfo);
	$line[0] =~ /([0-9]*)$/;
	$model = $1;

my $gcc_gte_4_2_0 = `util/gcc-gte.pl $gcc 4.2.0`;
my $gcc_gte_4_3_0 = `util/gcc-gte.pl $gcc 4.2.0`;
my $gcc_gte_4_5_0 = `util/gcc-gte.pl $gcc 4.5.0`;

if ( $features{"pni"} ) {

if ( $features{"pni"} ) { # a.k.a. SSE3

}
if ( $features{"ssse3"} ) {
	if ( $gcc_gte_4_3_0 ) {
		$march = "core2";
	} else {
		$march = "nocona";
	}

if ( $gcc_gte_4_5_0 && $features{"movbe"} ) {
	$march = "atom";
}