the following code is incomplete, I expect you will have to read a few perldocs for the CGI and DBI and DBD::mysql modules to fill it in and make sure everything is how it should be:

#/usr/bin/perl -w
use strict;
use CGI;
use DBI;

#start our CGI object up
my $Q = CGI->new();
#we probably want to set $CGI::POST_MAX, too.

#initialize a DB handle
my $dsn = 'username:host:password'; #see perldocs for exact form
my $DBH = DBI->new( $dsn );

#check for a file
my $file = $Q->param( 'uploaded_file' );

unless ( $file )
{
    #there is no file upload, so here's the form to do the upload
    print $Q->header(), $Q->start_html(), $Q->start_form();
    print $Q->filefield( -name => 'uploaded_file' );
    print $Q->end_html();
    exit;
}

my $text = join( '', <$filename> ); #slurp the whole file up

$DBH->do("INSERT INTO table VALUES( '$text' )"); #assumes blob or unic
+ode text field in target table

#status back to user
print $Q->header(), $Q->start_hmtl, $Q->p( 'Done' ), $Q->end_html;
[download]

---

Update: as to the unicode format issue, you can probably convert that stuff to HTML entities before you insert it, otherwise you might look at the blob field type (not ideal, but might work), after all, on some level it's just data.