#!/usr/bin/perl
# Make a sheet of my substandard size namecards
# which hopefully fit all on one printer page.
# Copyright : http://www.fsf.org/copyleft/gpl.html
# Created On : July 2006
# Last Modified On: Wed Sep 8 17:48:32 2010
# Update Count : 189
use strict;
use warnings FATAL => 'all';
##use HTML::Table;
use constant {
ONECARD => '積丹尼 Dan Jacobson 台中東勢
+886-4-25854780 +886-963-114343
http://jidanni.org/',
T => 'th',
};
print <
Namecard
EOF
## cellpadding 17 will cause an extra page
for ( 1 .. 10 ) {
print '';
for ( 1 .. 2 ) {
print '<', T, '>', ONECARD, '';
}
print "
\n";
}
print "
\n\n";