use KIP::Foots;

my $evening = KIP::Foots::GO->new(PeerAddr => 'Большая Дмитровка, 12',
                                        PeerPort => 'Пироги',
                                        Proto    => 'beer');
$evening->autoflush();