$ perl -e "($hi)=glob(\"nosum*\"); print \"$hi\"";
$