#!/usr/local/bin/perl



open (LYNX, "lynx -source http://www.google.com/ |") or die "Can't open lynx: $!";

my @lines= <LYNX>;

foreach (@lines){print "$_\n"};