my @result = qx(perl -MCPAN -e "install Modul" 2>&1);
print @result;