LWP::Simple could not retrieve issue

[Hsu, David]

Hi,
I am having is the following error when I try to execute the script via
a web browser.  It seem to parse fine from the command line.
Could not retrieve http://www.infoworld.com/rss/news.xml at
c:\inetpub\wwwroot\rss\rss2html.pl line 38

I tried with several different rss feed sites, all with the same
problem. Following is the partial code.  This is from rss2html.pl that
was included with XML-RSS module.

Any ideas?
Thanks,
David

# INCLUDES
use strict;
#use CGI qw(:standard);
use XML::RSS;
use LWP::Simple;

# Declare variables
my $content;
my $file;

# MAIN
# check for command-line argument
#die "Usage: rss2html.pl (<RSS file> | <URL>)\n" unless @ARGV == 1;

# get the command-line argument
my $arg = "http://www.infoworld.com/rss/news.xml";;

# create new instance of XML::RSS
my $rss = new XML::RSS;

#argument is a URL
if ($arg=~ /http:/i) {
    $content = get($arg);
    die "Could not retrieve $arg" unless $content;      ### line 38
    # parse the RSS content
    $rss->parse($content);

# argument is a file
} else {
    $file = $arg;
    die "File \"$file\" does't exist.\n" unless -e $file;
    # parse the RSS file
    $rss->parsefile($file);
}

# print the HTML channel
&print_html($rss);
.
.
.

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs