my $fh = $q->param('myfile');
binmode $fh;
my $block;
my $file;
while ( read($fh,$block,1024) ){
  $file .= $block;
}
insertRessource( $name, $entryid, $file, $mime );