#!/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: Sun Feb 14 00:45:33 2016
# Update Count : 214
use strict;
use warnings FATAL => 'all';
##use HTML::Table;
use constant ONECARD => <<\EOF;
積丹尼 Dan Jacobson
http://jidanni.org/
台中市東勢區慶福街1-6號
0963-114343 04-25854780
EOF
print <
Namecard
EOF
## cellpadding 17 will cause an extra page
for ( 1 .. 8 ) {
## 育才列印 was able to print 1..9 !
print '';
for ( 1 .. 3 ) {
print '| ', ONECARD, ' | ';
}
print "
\n";
}
print "
\n\n";