#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
print STDERR "\n";
print STDERR "usage: $0 [-display dpy] [-verbose]\n";
print STDERR "\t\t[-root | -window | -window-id 0xXXXXX ]\n";
print STDERR "\n";
print STDERR "usage: $0 [-display dpy] [-verbose]\n";
print STDERR "\t\t[-root | -window | -window-id 0xXXXXX ]\n";
elsif (m/^-v+$/) { $verbose += length($_)-1; }
elsif (m/^(-display|-disp|-dis|-dpy|-d)$/) { $ENV{DISPLAY} = shift @ARGV; }
elsif (m/^--?stdin$/) { $use_stdin = 1; }
elsif (m/^-v+$/) { $verbose += length($_)-1; }
elsif (m/^(-display|-disp|-dis|-dpy|-d)$/) { $ENV{DISPLAY} = shift @ARGV; }
elsif (m/^--?stdin$/) { $use_stdin = 1; }