Alors sasuke on ne sais pas ? Fais moi le malin hein quand ta pas ton chacras...

bon, plus sérieusement essaye un truc dans le style (moi aussi je débute en Perl alors c'est possible que ce soit pas tout à fait ca !) :

sub lecture {
open IN, $_[0] or die "Impossible d'ouvrir le fichier $_[0] pour la cause suivante : $!\n";
my $infos_fichier = "";
while( $infos_fichier .= <IN> ) {
;
}
close IN;
return $infos_fichier;
}

Cette fonction s'appelle de la sorte : calcule("nomdufichier_avec_chemin");

Et puis apres tu fais une méthode qui ouvre une connexion à une base de donnée, tu crée ta requete et l'éxécute sur cette connexion, puis tu ferme la connexion.

Si tu ne sais pas faire les connexion, dit le et je pourrais t'aiguiller.

++