merge perl 0b1dd3df4eb430a08b11aa8c4ee710d79db57f2a

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