merge perl 47ba822d4a284eaadf365b1de45b5e96636f8845

Signed-off-by: Vasiliy Tolstov <v.tolstov@selfip.ru>