Help for this page

Select Code to Download


  1. or download this
    sub spit_milk_out_my_nose{
       (my $severity,$msg,$exit,$exit_code)=@_;
...
       }
       
}
  2. or download this
       | hand waving here 
   my $dbh = DBI->connect($connect_string,$user,$password,$options)
                or spit_milk_out_my_nose(SEV1,"Connection error: " . $
+DBI::errstr,1,-1);
  3. or download this
    my $sth=$dbh->prepare($sql) or 
       spit_milk_out_my_nose(SEV2,
              "Error Preparing:\n" . $sql . "\nDBI returned: \n", $dbh
+->errstr
        );