My only other suggestion is to factor out the common variables, like password and username, used to access the database, and make them global.

But I see you are from Perth! Hehe, I have some very fond memories of Perth when I was down under back when I was in the Navy. Are the kids still into American cars from the 50s there?

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff";
$nysus = $PM . $MCF;
Click here if you love Perl Monks