Hi Aszl826,

I notice that noone is actually providing you with code for your question. Don't consider this too bad a thing. Anyway, if you want to read some reasonable introductory notes for Perl check out pjf's node. These notes are writen for 1 day courses and assume that you are familiar with some kind of programming language and programing paradigms (like conditionals and looping constructs). The intermediate course notes have a chapter on DBI in the back too.

Good luck.