Could someone help me with this code ?
It doesn't fail yet it doesn't print the lines out.
Thanks !!!
#!/usr/bin/perl
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
use LWP::Simple;
$q = new CGI;
print $q->header;
$URL="http:
www.yahoo.com";
if (defined ($page = get($URL))) {
die " Could not connect to $url";
}
@page = split(/\n/,$page);
print "@page";
foreach $line (@page){
print "$line\n";
}