#<snip>
#
    my $rnd = rand(time());
    my $i = int($rnd);
     
    my $FH;
    open($FH, 'picture.png') or die $!;
    binmode($FH);
    local ($/) = undef;
    $buffer = <$FH>;
    close($FH) or die $!;
    $md5 = Digest::MD5->new;
    $md5->add($buffer);
    $sum = $md5->hexdigest;
    
    $sth = $dbh->prepare(<<SQL) or die $DBI::errstr;
INSERT INTO test 
( id, myData, myName, myMd5 ) 
VALUES ( ?, ?, ?, ?);
SQL
    $rv = $sth->execute($i, $buffer, $rnd, $sum) or die $DBI::errstr;
#<snip>