if ($ENV{'REQUEST_METHOD'} eq "GET") {  
$form_data = $ENV{'QUERY_STRING'};   
 }else {
$form_data = <STDIN>;  
}