Автоматический мускульный подъемник(Веревка не требуется)

#!/usr/bin/perl
sub CheckMySQL {
        M1:
        while (!defined($dbh)) {
                my $dbh = DBI->connect("dbi:mysql:$BASE;
                host=$HOST", $MysqlUSER, $MysqlPAWD);
                if (!defined($dbh)) {
                    print "Server is Down! Trying to start it.\n";
                    system ("/usr/local/etc/rc.d/001.mysql-server.sh", "restart");
                    sleep 2;
                    redo M1;
                } else {
                    $dbh->disconnect;
                    print "MySQL server is OK!\n";
                    return;
                }
        }
        return (1);
}