print "does your rock have the same metalic luster as gold? yes or no: \n";
chomp($buck = <STDIN>);
if ($sbuck eq 'yes')
{
  print "your rock is pyrite\n";
}
else
{
  print "does your rock look like a thin metalic disk? yes or no?:\n";
chomp($buck2 = <STDIN>);
if ($buck eq 'yes')
{
print "your rock is Mica.\n";
}
else
{
print "is your rock purple? yes or no: \n";
}
chomp($buck3 = <STDIN>);
if ($buck3 eq 'yes')
{
print "your rock is amethyst.\n";
}
else
{
print "is your rock jet black? yes or no: \n";
}
chomp($buck4 = <STDIN>);
if ($buck4 eq 'yes')
{
print "your rock is obsidian. \n";
}
else
{
print "is your rock a translucent green? yes or no: \n";
}
chomp($buck5 = <STDIN>);
if ($buck5 eq 'yes')
{
print "your rock is flourite. \n";
}
else
{
print "is your rock white with many green speckles in it? yes or no: \n";
}
chomp($buck6 = <STDIN>);
if ($buck6 eq 'yes')
{
print "your rock is sandstone. \n";
}
else
{
print "is your rock greyish black with an amber luster? yes or no: \n";
}
chomp($buck7 = <STDIN>);
if ($buck7 eq 'yes')
{
print "your rock is smoky quartz \n";}
else
{
print "is your rock white with a really low hardness? yes or no: \n";
}
chomp($buck8 = <STDIN>);
if ($buck8 eq 'yes')
{
print "your rock is talc. \n";
}
else
{
print "is your rock dull green? yes or no: \n";
}
chomp($buck9 = <STDIN>);
if ($buck9 eq 'yes')
{
print "your rock is aventurine. \n";
}
else
{
print "is your rock pure white? yes or no: \n";
}
chomp($dan = <STDIN>);
if ($dan eq 'yes')
{
print "your rock is talc. \n";
}
else
{
print "is your rock translucent with a pinkish tinge? yes or no:\n";
}
chomp($dan2 = <STDIN>);
if ($dan2 eq 'yes')
{
print "your rock is rose quartz. \n";
}
else
{
print "your rock is mica schist.\n";
}
}
chomp($coolhuh = <STDIN>);