my @result = qx(perl -MModulname -e "1" 2>&1);