sub RunSQLReturnArrayRef {
    my $SQL = shift or exit;

    my $dbh = Get_database_handle or exit;
   
    my $resultArrayRef=$dbh->selectall_arrayref($SQL); 
    
    if ($dbh->err) {
	print &Template("DevMgr/GenericError",{message=>"Couldn't prepare statement : $DBI::errstr"});
	exit;
    }

    $dbh->disconnect;

    return $resultArrayRef;
}