I tried to ask this yesterday succinctly but it didn't seem to work. I have a Perl script with CGI in it but as part of that I want to query a SQL2000 database. This is my code: 
use strict;
use diagnostics;

use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;

use Win32::ODBC;
use lib '/perlcgi/settings';
require 'settings.pl';  # Included configuration file which contains g
+lobal variables

my %labels = (
    MA    => 'Mortgage Advisers',
    CA    => 'Customer Advisers',
    BM    => 'Branch Management',
    HO    => 'Head Office',
    Acc    => 'Accord',
    MSa    => 'MCC Sales',
    MSe    => 'MCC Service',
);

my $cgi    = CGI->new;
print $cgi->header('text/html');
my $dept    = $cgi->param('department');
my $today = 'somedate';

if (defined $dept) {
    if (exists $labels{$dept}) {
        # FIXME
        # untaint $dept and put it into database
        print
            $cgi->start_html,
            $cgi->p("$dept was received."),
            $db = new Win32::ODBC("$DSN");
            if ($dept ='CA'){
            if (!($db=new Win32::ODBC($DSN))) {
            print "Error connecting to Database\n";
           print "Error: " . Win32::ODBC::Error() . "\n";
            }
       $SqlStatement = "SELECT * FROM Pipeline WHERE Publish<='$today'
+ AND Expiry>='$today' AND CA='Must Read'";
         if ($db->Sql($SqlStatement)) {
         print "SQL failed.\n <br>$SqlStatement\n";
            print "Error: " . $db->Error() . "\n";
           }
         else {
          while($db->FetchRow()) {
            %Data = $db->DataHash();
          print "<li><a href=\"http://wwwybs/ybsone/Pipeline/master/$D
+ata{'Ref'}\" target=\"main\"><strong><font face=\"Arial\">$Data{'Titl
+e'}</a></font>Theme: $Data{'Theme'}</li>";
           }
          }
        $db->Close();
        } #End of IF CA=statement
        $cgi->end_html;
    } else {
        print
            $cgi->start_html,
            $cgi->p("$dept was received, but is not a valid department
+ name."),
            $cgi->end_html;
    };
} else {
    print
        $cgi->start_html,
        $cgi->start_form(
            -action    => $cgi->script_name,
        ),
        $cgi->popup_menu(
            -name        => 'department',
            -values        => [keys %labels],
            -labels        => \%labels,
        ),
        $cgi->submit,
        $cgi->end_form,
        $cgi->end_html;
};

[download]
I'm getting this error message: 
Software error:
Execution of E:\Perlcgi\Pipeline\cgi.pl aborted due to compilation err
+ors. 
For help, please send mail to this site's webmaster, giving this error
+ message and the time and date of the error. [Wed Apr 19 08:51:44 200
+6] E:\Perlcgi\Pipeline\cgi.pl: Execution of E:\Perlcgi\Pipeline\cgi.p
+l aborted due to compilation errors.

[download]
It makes no sense to me and there's nothing extra in the Perl error log. I think I haven't phrased the whole section that is trying to connect to the database right - If I comment everything out and just leave in the databse connection and first IF statement, it still gives the same error. Help!

In reply to Perl CGI and SQL statements by kjg

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.