if( $cgi->param ){
   # do stuff with submitted form data
} else {
   # print form
}