%> perl -cwT some.cgi