ryjkov

cityData = ["\u041c\u043e\u0441\u043a\u0432\u0430","\u0410\u0431\u0440\u0430\u043c\u0446\u0435\u0432\u043e","\u0410\u043b\u0430\u0431\u0438\u043d\u043e","\u0410\u043f\u0440\u0435\u043b\u0435\u0432\u043a\u0430","\u0410\u0440\u0445\u0430\u043d\u0433\u0435\u043b\u044c\u0441\u043a\u043e\u0435","\u0410\u0448\u0438\u0442\u043a\u043e\u0432\u043e","\u0411\u0430\u0439\u043a\u043e\u043d\u0443\u0440","\u0411\u0430\u043a\u0448\u0435\u0435\u0432\u043e","\u0411\u0430\u043b\u0430\u0448\u0438\u0445\u0430","\u0411\u0430\u0440\u044b\u0431\u0438\u043d\u043e","\u0411\u0435\u043b\u043e\u043e\u043c\u0443\u0442","\u0411\u0435\u043b\u044b\u0435 \u0421\u0442\u043e\u043b\u0431\u044b","\u0411\u043e\u0440\u043e\u0434\u0438\u043d\u043e","\u0411\u0440\u043e\u043d\u043d\u0438\u0446\u044b","\u0411\u044b\u043a\u043e\u0432\u043e","\u0412\u0430\u043b\u0443\u0435\u0432\u043e","\u0412\u0435\u0440\u0431\u0438\u043b\u043a\u0438","\u0412\u0435\u0440\u0435\u044f","\u0412\u0438\u0434\u043d\u043e\u0435","\u0412\u043d\u0443\u043a\u043e\u0432\u043e","\u

ryjkov

#!/usr/bin/perl -w
use strict;

=head1 DESCRIPTION

Make small pictures from big ones.

=head1 USAGE

    resize-mark.pl