Select Code to Download

use strict;
use warnings;
...
  system('explorer "http://www.google.com/search?q=pyrite"')
    if (my $in = <STDIN> =~ /^L/i);
}