Select Code to Download

use strict;
use diagnostics;
...
        $cgi->end_form,
        $cgi->end_html;
};

 #     $SqlStatement = "SELECT * FROM Pipeline WHERE Publish<='$today'
+ AND Expiry>='$today' AND $dept='Must Read'";

  if (!($db=new Win32::ODBC($DSN))) {
   print "Error connecting to Database\n";
   print "Error: " . Win32::ODBC::Error() . "\n";
...
    while($db->FetchRow()) {
    Do something here
}