use FW::Database;
use XML::Parser;

.
.# a lot of stuff that constructs $stmt
.

DB_insertdata($stmt, $dbh);

##</code><code>##

package FW::Database;

require Exporter;
use vars qw(@ISA @EXPORT %conf);
@ISA = qw(Exporter);
@EXPORT = qw(
	&DB_insertdata 
);

sub DB_insertdata
{
    my $stmt = $_[0];
    my $dbh  = $_[1];
    my $error = "";
    my $sth = $dbh->prepare($stmt) || FW::Utils::handle_dberror("$DBI::errstr", $dbh);
    my $rv = $sth->execute() || FW::Utils::handle_dberror("$DBI::errstr", $dbh);
}

##</code><code>##

open (PIPE, "|/usr/local/mysql/bin/mysql -u user database");
print PIPE $stmt;
close(PIPE);