#!/bin/sh

case "$1" in
on)
    xset s 300 5
    xset dpms 600 600 600
    ;;
off)
    xset s off
    xset dpms 0 0 0
    ;;
q)
    xset q | perl -nlE'print if ((/^(:?Screen Saver|DPMS)/.../^[^\s]/) && /^(:?Screen Saver|DPMS|\s)/)'
    ;;
*)
    echo "$(basename "$0"): unknown argument '$1'" >&2
    exit 1
    ;;
esac