从 Perl 脚本 DBI 关闭 MSSQL 服务器

我正在写一个 perl 脚本，其中我必须关闭我的 mssql 服务器，做一些操作，然后我必须重新启动它。我知道一种方法是使用 netstat 来停止服务，但我不能使用它。 所以我尝试安装 DBI 和 DBD::ODBC 模块。我可以通过以下代码连接并执行查询

use DBI;
my $data_source = q/dbi:ODBC:AUTOMATION_WOW64/;
my $user = q/pa/;
my $password = q/DCE/;

# Connect to the data source and get a handle for that connection.
my $dbh = DBI->connect($data_source, $user, $password)
or die "Can't connect to $data_source: $DBI::errstr";
my $str=$dbh->prepare("select SERVERPROPERTY('edition')");
$str->execute(); 
my @row;
while (@row = $str->fetchrow_array) {  # retrieve one row
print join(", ", @row), "\n";
} 

但即使经过很多搜索我找不到任何可以用来关闭服务器的查询。 只是想知道是否可以通过 sql 查询关闭服务器。 我找到了一个用于mysql服务器的

    $rc = $dbh->func('shutdown', 'admin');

在这个链接http://metacpan.org/pod/DBD::mysql http://metacpan.org/pod/DBD%3a%3amysql请告诉我 mssql 服务器是否存在类似的东西。

有一个 SQL 命令叫做SHUTDOWN - 更多信息在这里 http://msdn.microsoft.com/en-us/library/ms188767.aspx