--- a/bin/xyzimage.pl	Sun Jun 26 16:59:38 2011 +0100
+++ b/bin/xyzimage.pl	Sun Jun 26 17:08:06 2011 +0100
@@ -17,6 +17,7 @@
 my @popts;
 print $#ARGV . ": " . join(', ', @ARGV) . "\n";
 
+#TODO: Don't use Getopt. Parse by hand.
 GetOptions(
 	'g=f'         => sub { push(@xiargs, '-g') }, # ximage: -g gamma
 	'c=i'         => sub { push(@xiargs, '-c') }, # ximage: -c ncolors
@@ -83,4 +84,4 @@
 
 system("ximage $xiarg " . join(' ',  @files));
 
-#EOF
\ No newline at end of file
+#EOF