+# First, parse command-line options. Two are available:
+#
+# - Font name (-f name or --font name)
+# - Lines per glyph (-lnn or --lines nn, where nn is a decimal number)
+#
+use Getopt::Long;
+
+$result = GetOptions (
+ "copyright|c=s" => \$copyright, # Copyright string
+ "font|f=s" => \$font_name, # XLFD FAMILY_NAME
+ "rows|r=i" => \$vpixels, # XLFD PIXEL_SIZE; vertical pixels
+ "version|v=s" => \$version # Version of this font
+ );