$ perl -c  price.cgi
Too late for "-T" option at price.cgi line 1.