forum

crsky
url="?"
$pwuser
$pwpwd
$question="1"
$hideid="0"
$cktime=86400

 

use LWP;

use HTTP::Cookies;

use HTTP::Cookies::Netscape;



$tid = 161531;

$message = 'dddddd';

$url = qq(http://www.dolc.de/forum/post.php?action=reply&fid=139&tid=$tid&replysubmit=yes);



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



my $cookie_jar = HTTP::Cookies::Netscape->;new(

'file' =>; 'cookies.txt'

);



$browser->;cookie_jar($cookie_jar);

$browser->;agent('Mozilla/4.0 (compatible; MSIE 6.0; Windws NT 5.1)');







my $response = $browser->;post( $url,

   [

     'formhash' =>; '429acff1',

     'message' =>; $message,

   ],

);



if ($response->;is_success) {

        print "success\n";

        print $response->;content;

} else {

        print $response->;status_line;

}