use strict;
use warnings;

my $buck;
print "does your rock have the same metalic luster as gold? yes or no: ";
chomp($buck = <STDIN>);
if ($buck eq 'yes')
{
  print "your rock is pyrite [Hit enter to quit, \"L\" and enter to search Google] ";
  system('explorer "http://www.google.com/search?q=pyrite"')
    if (my $in = <STDIN> =~ /^L/i);
}