sub sqlExecute {
	my @results;
	my $sth = $dbh->prepare($_[0]);
	$sth->execute() || die print "Could not execute SQL query :\n$_[0]\n",$sth->erstr(),"\n";
	while (my $result = $sth->fetchrow_array()) {
		push @results, $result;
	}
	return @results;
}