As with all things mod_perl, the Guide will be your guide. Check out this section and the one following it, specifically.

Update: I originally read this assuming that this was running under mod_perl, not as a cgi. Ignore the above if the latter is true. ;>

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'