Re: Why am I getting "premature end of script header"?

in reply to Why am I getting "premature end of script header"?

#!/usr/bin/perl  
print "Content-type: text/html\n\n";
print "here we go again...";

eval {
        require LWP::UserAgent;
        require HTTP::Request::Common;
        import  HTTP::Request::Common;
        my $ua = LWP::UserAgent->new;
        my %post;
        my $content = $ua->request(POST "http://www.cnn.com", [%post])
+->as_string;
        print $content;
};

if (@$) {
print "ERROR: @$";
}

print "more stuff would happen here";
[download]

Comment on Re: Why am I getting "premature end of script header"? Download Code

Replies are listed 'Best First'.
Re^2: Why am I getting "premature end of script header"? by ikegami (Patriarch) on Nov 28, 2006 at 18:57 UTC
That doesn't work. See Re^3: Why am I getting "premature end of script header"? - eval { use } for an explanation. What one could do is replace the aformentioned `BEGIN { eval(" use LWP::UserAgent (); use HTTP::Request::Common; "); if ($@) { ... } } ...` [download] with `BEGIN { eval { require LWP::UserAgent; require HTTP::Request::Common; import HTTP::Request::Common; }; if ($@) { ... } } ...` [download] The difference between the two is just a question of style.	[reply] [d/l] [select]
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom