use LWP::UserAgent; 
 
$ua = LWP::UserAgent->new(timeout => 5); 
 
$post{$author} = "asssda"; 
$post{$email} = "asssad@wp.al"; 
$post{$url} = "http://saassd.pl"; 
$post{$comment} = "sss sss sss"; 
$post{$comment_post_ID} = 12833; 
$post{$submit} = "Dodaj komentarz"; 
 
#this is example site where it does not work 
$form = "http://cgk.czestochowa.pl/wp-comments-post.php"; 
 
$response = $ua->post($form, \%post); 
print $response->as_string;