package SQL;
use DBI;

our $dbh;
our $sth;

sub xqt
{
    my $sCommand = shift;
    $sth         = $dbh->prepare($sCommand);
    $sth->execute ();
}