$ENV{'QUERY_STRING'} または STDINの値を読み、0か何も値がないかを判断すればよい