请教DBI连接数据库的问题

[hiller1]

#!/usr/bin/perl -w

use DBI;
my $dsn = "DBI:mysql:database=test;host=192.168.154.2:3306";
my $user = 'admin';
my $password = '123456';
my ($dbh,$sth,@ary,@ary2);
$dbh = DBI->connect($dsn,$user,$password);       

sub get_slave_status {
$sth = $dbh->prepare("show all slaves status;");   
$sth->execute();
@ary = $sth->fetchrow_array();
$sth->finish;
}                                 

sub get_version {
$sth = $dbh->prepare("select version();");   
$sth->execute();
while(@ary2 = $sth->fetchrow_array()){
print join("\t",@ary2),"\n";
$sth->finish;                                                            
}                                
}

get_slave_status();
while(@ary){
print join("\t",$ary[0],$ary[34]),"\n";
                                               
if($ary[34] < 60){
  print "同步正常\n";
}
elsif($ary[34] eq "NULL"){
  print "同步报错\n"; 
}
else{
  print "同步延迟超过2小时!!!";
  print `date`;
  get_version();
}
}                              
$dbh->disconnect;                               

现在执行代码后，一直不退出，死循环了。

请大家帮忙看看，谢谢！