Select Code to Download

$dbh    = &ora_login($DB,$UN,$PW) or
              die("Oracle login FAILED.");
...
    }
    print " : $clli\n";
}

$ perl traffic.pl
Use of uninitialized value in pattern match (m//) at traffic.pl line 3
+6.
Use of uninitialized value in concatenation (.) at traffic.pl line 41.
This clli appears to be OK. :
$