вместо IPC::Open3; можно use IPC::System::Simple qw(capture); использовать