{read(STDIN, &rqst, $ENV{"CONTENT_LENGTH"})}
             ^--- Perl is not C. This should be $rqst