Select Code to Download

#!/usr/bin/perl 
...
$Odbh->disconnect;
exit;

qg@dev:~/svnwork/dds/trunk/src$ ./alerts.pl
./alerts.pl: Tue Oct 21 11:32:20 2008
...
    usually optimized into "that " . $foo, and the warning will refer 
+to
    the concatenation (.) operator, even though there is no . in your
    program.

qg@dev:~/svnwork/dds/trunk/src$ !!
./alerts.pl
./alerts.pl: Tue Oct 21 11:32:53 2008
./alerts.pl: Tue Oct 21 11:32:54 2008 run complete
qg@dev:~/svnwork/dds/trunk/src$

use diagnostics;