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


We don't bite newbies here... much
	PerlMonks

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

by Anonymous Monk

on Nov 28, 2006 at 12:06 UTC ( [id://586446]=note: print w/replies, xml )

Need Help??

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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://586446]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others chanting in the Monastery: (4)

As of 2024-04-19 15:48 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found