[Perl-unix-users] Error : unexpected EOF before status line seen

[Bala, Sairam]

When I run this script, I get the following error "500 unexpected EOF before
status line seen". I have not been able to figure this one out. Did anyone
encounter this before? I am using ActivePerl 5.6.

Thanks
Sai

  #!/bin/perl -w 

  use LWP;
  use HTTP::Request::Common;

  my $ConfirmFile = "c:/myperl/confirm.xml";
  my $HeaderFile  = "c:/myperl/ups_header.xml";
  my $XMLData;

  open HEADER, $HeaderFile or die "Cannot open Header.xml\n";
  while (<HEADER>) {
    $XMLData .= $_;
  }

  open CONFIRM, $ConfirmFile or die "Cannot open Confirm.xml\n";
  while (<CONFIRM>) {
    $XMLData .= $_;
  }

  #print $XMLData;

  close HEADER;
  close CONFIRM;

  my $server="https://wwwcie.ups.com/ups.app/xml/ShipConfirm/";;
  my $url = "https://lnx1.ndcorp.com/~swilson/env.pl";;

  my $ua = LWP::UserAgent->new;

  my $req = HTTP::Request->new(POST => $server); 
  $req->content( $XMLData );
  my $res = $ua->request($req);

  #my $res = $ua->request ( POST $server, [pdat => $XMLData]);

  if ($res->is_success) {
      print $res->as_string;
      print "Success";
  } else {
      print "Failed: ", $res->status_line, "\n";
      #print  $res->error_as_HTML;
      #print  $res->request;
  }
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs