my @result = qx(perl -e modulname 2>&1);
print @result;