If you're just trying to get a little handier with Perl and writing this code to learn, I applaud. If you're trying to get something actually done, though, I recommend you save yourself the effort and check out the WWW::Search family of modules on CPAN. There are routines in there for conducting searches on a lot of the popular search engines, including, of course, Google.

HTH!

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'
[download]