$today = 'somedate';            # was: $today = 'somedate'
# snip 8<
$db = new Win32::ODBC("$DSN");  # was: $db = new Win32::ODBC("$DSN"),