scom () {
        local level=""
        if [[ $1 = (([#]##),#)## ]]
        then
                level="=$1" 
                shift
        fi
        perl -MSmart::Comments${level} "$@"
}