Select Code to Download

use Fcntl qw( :DEFAULT :flock );
use CGI;
...
    $dbh->do($sql_insert,undef, $page->param('name'), $page->param('bo
+nsai_id'), $UPLOAD_DIR . $filename, $date) || error $page,"Could not 
+insert $sql_insert :\n";

print "<b>Added $filename</b><br />";