open(FILE, $scriptfile) || die "Cannot Open $scriptfile\n$!\n";

undef $/;
$_ = <FILE>;

	if ($_ =~ /post\s(.+\n)(.+\n)content-length:\s(\d+\n\n)(.+\n)/s) {print "relURL: $1\nContent length: $3\npost_body: $4\n\n"}
	

close(SCRIPT);