##

#!/usr/bin/perl

use strict;
use CGI;
use DBI;

my $cgi = new CGI;
my $dbh = DBI->connect("DBI:mysql:dbname:localhost","username","password");
my $fh = $cgi->upload('file');

my $data;
$data .= $_ while <$fh>;

my $p = $dbh->prepare("insert into `tablename` (`address`,`data`) values (?,?)");
$p->execute($cgi->param('address'), $data);
$p->finish;

$dbh->disconnect;