Select Code to Download

 #!/usr/bin/perl 
### Strange MySQL Error ###
use warnings;
...
 $bat = somefunction($_);
 my $entry_added = $dbh->do("INSERT INTO `foo`.`table` (`boo`, `bat`) 
+VALUES ('$_', '$bat')", undef, 'DONE') or &dbdie; 
}