#!/usr/bin/perl -w
use strict;
use warnings;
use Kostky::Server;

while (1){
    my $vitez;
    my $kostky_server = new Kostky::Server;
    $kostky_server->spust;
}