#!/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: Thu Feb 7 09:15:23 2008
# Update Count : 144
use strict;
use warnings;
use HTML::Table;
my $d = "積丹尼 http://jidanni.org/ Dan Jacobson
+886-4-25854780 +886-963-114343
42351台中縣東勢鎮慶福街1-6號 Taiwan";
my $table = new HTML::Table( -padding => 21, -spacing => 0, -border => 1 );
for ( ($d) x 9 ) { $table->addRow( ($_) x 2 ) }
print <
Namecard$table
EOF