Select Code to Download

$fname = "john";
$lname = "doe";
...
my $url = 'https://www.google.com/?firstname=$fname&lastname=$lname&co
+untry=$ctry';
print "Requesting ", $url, "\n";
my $req = HTTP::Request->new(GET => $url);

my $single_quoted = 'https://www.google.com/?firstname=$fname&lastname
+=$lname&country=$ctry';
my $double_quoted = "https://www.google.com/?firstname=$fname&lastname
+=$lname&country=$ctry";

print 'Single quotes:', $single_quoted, "\n";
print "Double quotes:", $double_quoted, "\n";