Khen1950fx:

Your if and else blocks look very similar. Perhaps you meant to do something different in one of the cases?

Here's an interactive way of searching:

$ perl -MCPAN -e shell

cpan shell -- CPAN exploration and modules installation (v1.9402)
Enter 'h' for help.

cpan[1]> m CGI                             
CPAN: Storable loaded ok (v2.21)
Going to read '/home/vmuser/.cpan/Metadata'
  Database was generated on Wed, 21 Jul 2010 02:29:05 GMT
Module id = CGI
    DESCRIPTION  Simple Common Gateway Interface Class
    CPAN_USERID  LDS (Lincoln D. Stein <lincoln.stein@gmail.com>)
    CPAN_VERSION 3.49
    CPAN_FILE    L/LD/LDS/CGI.pm-3.49.tar.gz
    DSLIP_STATUS RdpOp (released,developer,perl,object-oriented,Standa
+rd-Perl)
    MANPAGE      CGI - Handle Common Gateway Interface requests and re
+sponses
    INST_FILE    /usr/local/lib/perl5/5.10.1/CGI.pm
    INST_VERSION 3.43
[download]