##

	...
	my $q = new CGI;
	my $file = $q->param("myfile");
	binmode $file;
	&insertRessource( $name, $entryid, $file, $mime );
#all parameters are available

##

##

sub insertRessource
{
	my $name = $_[0];
	my $entryid = $_[1];
	my $file = $_[2];
	my $mime = $_[3];
	my $sth = $dbh->prepare('insert into ressource (name, entryID ,data, mime) values (?,?,?,?)');
	$sth->execute($name, $entryid, $file, $mime) or die $!;
	$sth->finish;
	$dbh->disconnect;
}