--- /dev/null
+#!/usr/bin/perl -w
+use strict;
+our $us = $0; $us =~ s#.*/##;
+
+our $papersize = 'creditcard';
+our $fontsize = 10;
+our $font = 'Courier';
+
+our $usage = <<END;
+usage: $us [<options>] <foo-mail-pregen> <foo-mail-pregen-opts>...
+options:
+ -p<papersize> default is $papersize
+ -f<fontsize> default is ${fontsize}pt
+ -F<font> default is $font
+END
+
+for (;;) {
+ badusage unless @ARGV;
+ last unless $ARGV[0] =~ m/^-/;
+ $_ = shift @ARGV;
+ last if m/^--?$/;
+ while (m/^-./) {
+ if (s/^-p(.*)$//) {
+
+
+p
+while (@ARGV && $ARGV[0] =~ m/^-/) {
+