#!/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  (for libpaper, or "creditcard")
  -f<fontsize>      default is ${fontsize}pt
  -F<font>          default is $font
END

our $paperx, $papery;

for (;;) {
    badusage unless @ARGV;
    last unless $ARGV[0] =~ m/^-/;
    $_ = shift @ARGV;
    last if m/^--?$/;
    while (m/^-./) {
	if (s/^-p(\w+)$//) {
	    $papersize = $1;
	} elsif (s/^-f([0-9]+)$//) {
	    eval { $fontsize = $1 

	} elsif (s/^-pcreditcard$//) {


	    my $
	    $!=0; $?=0; my $r = `paperconf -sp $1`;
	    defined $r or die "paperconf failed: $? $!\n";
	    $r =~ m/^([0-9.]+) ([0-9.]+)$/ or die "$_ ?";
	
p
while (@ARGV && $ARGV[0] =~ m/^-/) {