"is there any reason you're executing your statement within an eval?"
From perldoc -f eval : It is Perl's exception trapping mechanism; so you can trap errors and write eg :

            if ( $@ ) { 

            if ( $@ =~ /foreign key/  ) { 

} else {


}
[download]