using LWP
 

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";
}